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FOREWORD 

This  work  was  accomplished  in-house  by  personnel  of  the  Stability 
and  Control  Branch,  Aeromechanics  Division,  Directorate  of  Airframe 
Subsystems  Engineering,  Systems  Engineering  Group,  Research  and  Tech¬ 
nology  Division,  which  has  become  the  Flight  Stability  and  Control 
Branch,  Flight  Technology  Division,  Directorate  of  Flight  Systems 
Engineering,  Deputy  for  Engineering,  Aeronautical  Systems  Division, 
ASD/ENFTC.  It  is  applicable  to  aerospace  systems.  The  initial  part  of 
the  work  was  done  between  1  January  and  15  February  1965;  since  then, 
the  computer  programs  have  undergone  several  major  revisions  to  reach 
their  present  status.  Earlier  versions  were  supplied  to  Lockheed- 
Georgia,  Martin-Baltimore,  NASA-Langley  and  AFFTC,  Edwards  Air  Force 
Base.  The  digital  work  was  done  at  the  open  shop  facilities  of  the 
Systems  Engineering  Group. 

The  efforts  of  Mr.  Paul  Pietrzak  in  laying  the  basic  foundation  for 
this  work  are  greatly  appreciated,  as  well  as  the  efforts  of  Miss  Carol 
Scherer  for  her  aid  in  digital  programming  and  mathematics,  and  of  Mr. 
Herbert  Hickey  for  his  aid  in  selecting  handling  qualities  parameters. 

This  report,  SEG-TR-66-52,  was  submitted  by  the  original  author, 
John  H.  Griffin,  during  October  1966  and  was  reviewed  and  approved  by 
Richard  H.  Klepinger,  Chief,  Aeromechanics  Division,  Directorate  of 
Airframe,  Subsystems  Engineering. 

Report  SEG-TR-66-52  was  revised  by  members  of  the  ASD  Reserves  for 
AFFDL/FGC  to  reflect  numerous  changes  that  have  occurred  in  the  computer 
program  since  the  original  report  was  written. 
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amplitude,  seconds  (i  =  R,  S,  etc.) 

c p  =  bank  angle,  positive  right  wing  down,  degrees 
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wDR’%r»“[)  = 

undamped  natural  frequency  of  the  Dutch  roll  mode, 
radians/sec. 

WdDR 

damped  natural  frequency  of  the  Dutch  roll  mode,  radians 
per  second. 

“SP-“„SP  • 

undamped  natural  frequency  of  the  short  period  mode, 
radians  per  second. 

10,  = 
<P 

undamped  natural  frequency  of  the  0/6a  transfer  function 
numerator  quadratic,  1/sec. 
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Subscripts 

o  =  initial  condition 


1,  2 

= 

sequence  of  sum  variable 

1/2 

= 

one  half 
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= 

double 

1/10 

= 

one  tenth 

10 

= 

ten  times 

A 

= 

aileron 

a 

= 

acceleration 

CL 

= 

closed  loop 

D 

= 

Dutch  roll  mode  (also  DR) 

D 

= 

denominator 
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= 

elevator 
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= 

equivalent  (as  in  V  ) 
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= 

altitude 
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= 

any  independent  variable 
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any  independent  variable 
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numerator 

n 
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natural 

nd 

= 

natural  damped 

xi  i 


AFFDL-TR- 78-203 
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p  =  phugoid  mode 

p  =  roll  rate 

q  =  pitch  rate 

r  =  yaw  rate  (l/xr  as  in  yaw  rate  transfer  function) 

R  =  rudder  (as  in  6^) 

R  =  roll  mode  (as  in  t^) 

RPM  =  revolutions  per  minute  (engine  speed) 

5  -=  spiral  mode  (as  in  t  ) 

SB  =  speed  brake 

sp  =  short  period  mode 

T  =  thrust 
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v  =  side  velocity 

w  =  vertical  velocity 

x,y,  and  z  =  reference  axes 

6  =  control  deflection 

osc  =  oscillatory  portion  of  component  of  an  airplane  response  to  a 
step  control  input 

av  =  average  response  of  an  airplane  to  a  step  control  input 


Superscri pts 

(  )  =  time  rate  of  change 
(  )'  =  prime 
O  =  caret  -  (  )/u. 


Other  nomenclature  is  defined  at  the  point  of  use. 


AFFDL-TR-78-203 


SYMBOLS  (CONTINUED) 

2.  DEFINITION  OF  AERODYNAMIC  COEFFICIENTS 


D 

qS 


dM 


-  u  ^CD 
2  du 


*Cp 

da 


qS7 

M 

2  CmM 


uo 

'2  du 


dc. 


dM 


C  r 

L 

CL 

q  S 

V 

4  C 
2  L 

C  x 

1  Cl/ 

o 

r 

M 

dM 

r 

a> 

o 

r 

°La 

d  a 

c 

dCL 

Ld 

1 

H2U0  / 

c  = 

dcL 

Lq 

d(— ) 

*  2  uo 

o 

s* 

ii 

\ 

Cx 


-X 

5* 


poiitiv*  oft 


V 

dC 

y 

dp 

dCy 

%- 

*4) 

dCy 

CVr  1 

* 1  >0  ^ 

aUu0i 

f '  X 

<3  C  y 

% 

*«y 

dCy 

m 

"FT 

xiv 


AFFDL-TR-78-203 


C"  *  $Sb 


SYMBOLS  (CONTINUED) 

c£''  $fb 


n/3  *0 

dc 

c  .  =  —fi- 

0  at*.) 

\20oJ 

r  dcn 

‘ 


V  a/8 

dCp 

C*e  "  ^5) 

V2uj 


*430 


'  *(ft) 

, 

c*»  a 


c#  s  - 

p  '(£) 

dc« 

<V  "78 


(  Ct>  *  T  V 


-i>sul 

2„  *  —~3-  (C,  ♦  CD) 

"  2  m  La  0 

-p  Sc 

zw  ■  -Sr  (<V 

-psu0c 

zo  Ti  1  Cl«) 


z  ,  ^(C  , 

\  2"  l8.’ 


X  s 

w 

psu« 

2m  (CL  -  <V 

M„  « 

xw  * 

l£±L 

4m 

(c0d» 

Mw  . 

Xq  * 

-^SU0T 
4  m 

(co,> 

M*  * 

y  • 

-*SU0* 

(C<W 

2  m 

Mq  * 

zu  * 

-p  SU 

m 

iCL  *  -M-C  ) 
c 

* 

Ps\)0t 


psu.r 


(Cm  +  tc"> 


(Cm  ) 


tx,y  a 

«sr* 

- 

4I»»  mo 

p^£*  c 

41  „  % 

Ps&  , 


AFFDL-TR-78-203 


xvi 


AFFDL-TR-78-203 


SYMBOLS  (CONTINUED) 

3.  CONVERSION  OF  COMPUTER  SYMBOLS  TO  ENGINEERING  SYMBOLS 
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A-j  coefficient  of  an  equation 

CAYP 

= 

C  . 

a 
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y 

AAYP 

= 

Aa 

CB 

= 

Co 

y 

B 

AB 

= 

ab 

CL 

= 

CL 

AH 

= 

\ 

CLA 

= 

La 

ALFAA 

= 

aA 

CLAD 

= 

ci. 

a 

ALFAI 

= 

aI 

CLB 

S 

C1 

ALFAX 

= 

aX 

B 

ALPHA 

= 

a,  angle  of  attack 

GIBD 

= 

Cl- 

6 

ANGLE  P/B  = 

AP  = 

*  P/B 

A, 

CLDA 

= 

C1 

6 

a 

AR 

= 

A 

r 

CLDE 

= 

CL. 

AT 

= 

A0 

e 

AU 

_ 

A, 

CLDR 

s 

C1 

6 

u 

r 

AW 

= 

Aw 

CLM 

_ 

CL 

lm 

AZ 

= 

az 

B 

= 

B. ,  coefficient 

CLP 

= 

C1 

P 

B 

b,  span 

CLQ 

_ 

Ci 

BAYP 

= 

Ba' 

Lq 

y 

BB 

s 

b0 

CLR 

= 

C1 

B 

r 

BP 

= 

bd 

CMT 

- 

c_ 

P 

mthrust 

BR 

= 

Br 

CNB 

= 

Cn 

B(T) 

= 

B(t) 

B 

C 

- 

C,  coefficient 

CNBD 

C 

nB 
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SYMBOLS  (CONTINUED) 


LDA 

= 

L6 

a 

NBP 

= 

NS 

LDAP 

= 

L' 

6a 

NDA 

= 

\ 

LDR 

= 

4 

r 

NDAP 

= 

\ 

LDRP 

= 

4 

NDR 

= 

\ 

r 

LP 

_ 

L 

NDRP 

= 

»« 

P 

r 

LPP 

= 

V 

NP 

= 

np 

LR 

= 

L 

r 

NPP 

= 

LRP 

= 

l; 

NR 

_ 

N 

r 

r 

LX 

= 

4 

NRP 

= 

N’r 

MAC 

= 

c 

P2/P1 

= 

P2/P1 

MACH 

= 

Mach  number 

PHIA 

= 

*  (V 

MD 

= 

4 

PHI  OSC/PHI  AV 

= 

^osc^AV 

MKBPDR 

= 

lK3  1 

SDR 

POSC/PAV 

- 

P  /P 

osc  ave 

MKPPDR 

= 

|Kp  1 
rDR 

PSIB 

= 

PSIBP 

= 

^8 

MU 

= 

Mu 

PSIP 

= 

4 

MWD 

= 

Mw 

P(T) 

= 

P(t) 

NB 

= 

N„ 

RHO 

8 

— 

P 

NBD  =  N^  S  =  Sw  (reference  area) 

BDP  =  N'  SPAN  =  b 
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SYMBOLS  (CONCLUDED) 


TDDR 

T  . 

dDR 

YDA 

TDR 

= 

XDR 

YDR 

= 

\ 

°r 

TDT 

= 

°RPM 

YP 

= 

YP 

TR 

= 

tR 

YR 

= 

Yr 

TS 

= 

TS 

ZD 

= 

Z6 

1  /TR 

= 

ZDR 

= 

?DR 

1/TAYI 

= 

(1/V, 

ZP 

= 

?p 

U 

= 

Uo 

ZSP 

- 

?sp 

V 

= 

V 

ZT 

- 

zt 

VE 

= 

u 

equivalent 

ZW 

= 

Zw 

WDDR 

= 

dDR 

WDR 

= 

UDR 

WP 

= 

0) 

p 

WPHI/WDR 

= 

W(j)/a)DR 

WSP 

— 

SP 

XQ 

= 

Xq 

XU 

= 

X 

u 

YB 

= 

yb 

YBD 

= 

yb 

xx 
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SECTION  I 
INTRODUCTION 

During  the  initial  design  phases  of  an  aircraft  or  missile  system, 
the  aerodynamic  characteristics  of  the  airframe  can  be  estimated  to 
determine  whether  or  not  the  approach  being  taken  to  meet  the  design 
objectives  is  correct.  As  the  design  progresses,  the  data  must  be 
more  refined  with  more  accurate  airframe  characteristics.  The  preliminary 
estimation  methods  are  no  longer  acceptable.  The  methods  for  calculating 
the  airframe  characteristics  used  in  defining  the  handling-qualities 
parameters  for  the  final  design  are  long  and  complex.  In  fact,  they 
are  so  much  so  that  a  computer  analysis  is  a  necessity  for  today's  systems. 
Therefore,  these  computer  programs  have  been  prepared  for  the  solution  of 
the  longitudinal  and  lateral-directional  equations  of  motion,  each  a 
separate  entity  and  each  consisting  of  three  degrees  of  freedom.  These 
computer  programs  are  presented  in  this  report.  The  longitudinal  and 
lateral-directional  modes  are  assumed  to  be  uncoupled  and  the  equations 
are  linearized. 

Handling-qualities  information  was  a  prime  requirement  for  this  study. 
When  the  equations  were  solved  and  programmed,  therefore,  considerable  effort 
was  devoted  toward  decreasing  the  amount  of  time  spent  in  calculating  such 
parameters  as  u>  /L  ,  n^  ,  d3/ v  ,  and  Many  handling-qualities 

parameters  are  presented,  but  many  others  had  to  be  excluded  because  a 
tremendous  amount  of  input  data  would  be  required  to  define  all  the 
parameters.  The  two  computer  programs  presented  herein  are  complete 
Fortran  IV  programs. 
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SECTION  II 

DISCUSSION  OF  EQUATIONS  OF  MOTION 

The  derivation  of  the  equations  of  motion  is  based  on  the  classical 
method  --  Newton's  laws  of  motion  referenced  to  an  axis  fixed  in  space. 
Newton's  laws  state  that  the  force  acting  on  a  body  is  equal  to  the 
time  rate  of  change  of  momentum,  and  the  torque  applied  to  the  body  is 
equal  to  the  time  rate  of  change  of  the  moment  of  momentum.  This  can 
be  stated  mathematically  for  the  reference  system  shown  in  Figure  1  as 
follows: 


ZFX  ■ 
ZFy  * 

£  L  - 
£  M  s 
£  N  * 


(1) 

&  ,"’ul 

A 

(2) 

A- 

jr  (mW) 

(3) 

dhx 

dt 

(4) 

dhy 

dt 

(5) 

dhz 

dt 

(6) 

This  report  will  proceed  no  further  with  the  fundamental  derivation  of 
the  equations  of  motion;  numerous  reports  have  treated  this  subject,  such 
as  Reference  1.  Further  discussion  in  the  use  of  these  equations  is 
broken  into  two  sections,  longitudinal  and  lateral-directional. 
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Z 


Figure  1.  Reference  Inertial  Axis  and  Associated  Airframe  Motion 


1.  LONGITUDINAL  MOTION 

The  linearized  longitudinal  equations  of  motion  are  EFx,  EF^,  and  EM 
(Appendix  A,  Equations  A-l,  A-2,  and  A-3).  The  equations  apply  to  an 
operating  point  in  steady  unaccelerated  flight.  To  define  the  basic  air¬ 
frame  characteristics  in  terms  of  mode  damping  and  frequency,  etc.,  the 
characteristic  equation  is  derived  (see  Appendix  A)  with  the  final  form 

As4  +  Bs5  +  Cs*  +  Ds  +  E  *  0  (7) 

The-  solution  to  this  equation  yields  four  roots.  For  the  most  common  case, 
the  solution  is  in  the  form 

(S*  +2CcJnS  +  to»n*)p  <S2  +  2Ca>nS+wn*lsp  (8) 

where  the  subscripts  p  and  sp  represent  phugoid  and  short  period  modes, 
respectively.  The  characteristics  (s  and  w)  specify  the  control s-fixed 
motion  when  the  airframe  is  subjected  to  ?  unit  impulse  at  t  =  0. 
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Once  the  coefficients  of  Equation  7  are  calculated,  the  roots  of  the 
equation  can  be  extracted  by  using  the  standard  airframe  approximation 
(References  1  and  2),  by  either  Lin's  method  or  an  equivalent  method  of 
factoring  or  by  a  digital  computer.  Lin's  method  is  long  and  tedious, 
even  if  certain  simplifying  assumptions  carr  be  used.  To  complicate 
matters,  the  performance  values  for  most  of  today's  aircraft  do  not  lie 
within  the  range  of  validity  for  the  approximations  used  in  previous  studies 
(Reference  2),  which  would  make  this  method  ineffective.  A  computer 
solution,  however,  is  a  very  practical  answer  to  the  problem  because: 

(1)  many  flight  regimes  can  be  examined  in  the  same  amount  of  time  that 
previously  was  required  for  one,  and  (2)  the  exact  values  for  the  roots  and 
characteristics  are  found.  The  computer  programs  presented  in  this 
report  are  written  to  yield  the  exact  solution. 

The  solution  to  the  characteristic  equation  yields  much  information 
about  the  airframe,  but  more  information  is  provided  if  specific  control 
inputs  are  used  by  solving  for  the  transfer  functions  of  the  airframe. 

Three  basic  transfer  functions  are  derived  in  Appendix  B.  These  are 
a(s)/<Se(s),  0(s)/<5e(s),  and  u(s)/6g(s).  These  transfer  functions  not 
only  provide  valuable  information  for  design  and  optimization  of  the 
automatic  flight  control  system  but  are  a  source  of  handling-qualities 
information.  As  an  example,  several  reports  (References  3  and  4)  discuss 
the  importance  of  the  time  constant  in  the  numerator  of  the  pitch  attitude 
to  elevator  deflection  transfer  function. 

From  the  three  basic  transfer  functions  a,  9,  and  u,  many  others  can 
be  derived.  For  example,  rate  of  climb,  altitude,  and  vertical  acceleration 
responses  can  easily  be  derived  by  combining  these  three  basic  transfer 
functions.  The  altitude  per  delta  elevator  transfer  function  is  included  in 
the  program  for  the  longitudinal  transfer  functions;  this  program  can  be 
used  as  an  example  for  deriving  the  others. 
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Assuming  that  u(o+)  =  0(o+)  =  w(o+)  =  0, 

the  equation  for  rate  of  climb  is,  for  sin  r  “  F: 

h  =  uT 

But  U  =  U  +  u  and  F  =  F  +7  so* 

0  0 

h  =  (U0+u)(ro+yl  =  U0ro+roii  +  Uoy 

However,  with  <}>  =  0,  y  =  9-a,  so 

h  =  uoro  +  ro u -  U0a  +  U 09 

Letting  a  =  w/U  ,  Equation  11  becomes 

h  =  u0  r0 + r0  u  -  w + u0  9 

Taking  the  Laplace  transform  yields 

sh (s)  =  — — *■  +  1^  u(s)  —  w(s)  +  U0ff  Is) 


(9) 


(10)* 


(ID 


(12) 


(13) 


The  conditions  for  the  altitude  transfer  function  presented  in  the 
computer  program  are  rQ  =  0,  and  initial  steady  flight  at  the  operating 
point.  Thus,  Equation  13  can  be  expressed  as 

Now,  expressing  iLl®i  and  in  the  general  form 

8(s)  Sis) 


Aisfn-hB|Sfn"1  +  ■  •  • 

As- +  Bsn"'  +  ••  • 

one  can  write  (note  the  free  s  in  the  denominator) 

Ms)  a  Ah53  +  Bhs*  +  Chs  +  ph 
Sis)  s(As4+Bs3  +  Cs2  +  0s+E) 


(15) 


(16) 


*The  term  uy  is  neglected  because  it  is  the  product  of  small  perturbations. 
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where  the  numerator  coefficients  are  combinations  of  the  0(s)/6(s) 
and  w(s)/6(s)  'ansfer  functions  and  the  denominator  coefficients  are 
from  the  longitudinal  characteristic  equation. 

The  numerator  coefficients  are 

Ah.-Z§  (17) 

Bh  •  XgZu  +  ZglXu  +  Mq  +  U0Mw)-Mg{U0Z*  +  Zq)  (18) 

ch  *  XglMqZu-MuZq  +  UoZoMw-MuUoZw) 

+  Zg(MuXq-XuMq+Mu  Uo  X^+UQMyK  —  XyUQM(j|() 

+  Mg ( Xu  Zq  —  Z u  X  q  +  XuUo  Z*  —  Zu  Uo  X*  —  Uq  Z*  )  (19) 

Oh  '  XS(ZUU0MW-MUU0ZW) 

f  Zg  (  —  g  M  u  “  X(J  Uq  M  vy  ^  My  Uq  Xyy  ) 

+  Mg(gZu  +  XuU0Zw-ZuU0Xw)  (20) 

and  are  valid  only  when  TQ  =  0. 

The  coefficients  of  the  denominator,  or  characteristic  equation, 
are  as  follows: 

A  =  l-Z*  (21) 

B  =  — A(XU+  Mq)-Zw-MW(U0  +  Zq)-ZuXW  (22) 

C  *  Xu[MqA  +  Zw+M*(U0  +  Zq)] -Mu  [xwiU0  +  Zq)+XqA] 

+  MqZw-fZy(X^Mq  —  —  M*  sin  1^)““  M^fUo+Zq)  (23) 
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D  *  g  fin  ro(XwMu+Mw-XuMw)  +  gco*ro(ZuMw  +  MuA) 

+  Mu[xqZw-Xw(U0+Zq)]+Zu(MqXw-MwXq) 

+  xu  [mw(U0+  Zq )  -  Mq  ZwJ  (24) 

E  *  g  co*  ro(Zu  Mw-MuZw)-f  g  tin  ro(MuXw  —  MWXU)  (25) 

The  rate  of  climb  and  the  acceleration  transfer  functions  can  be  found  from 
the  attitude  transfer  function,  by  successive  differentation 


The  result  is  to  remove  a  root  of  zero.  For  acceleration,  there  are  two 
additional  poles  at  zero  in  the  transfer  function  for  acceleration  at  the 
center  of  gravity  (CG),  but  for  the  case  where  acceleration  is  desired  at 
specific  point  on  the  aircraft,  the  az  transfer  function  becomes  different 
from  an  s  multiple  of  Nh.  For  acceleration  at  some  point  different  from 


the  CG  where  a  =  -h 
z 

CG 


“'as -■'»* 


(a  is  positive  downward). 


a»(,)  ,  -«*  h(i)  _  »*/»  9 (») 
B<s)  8(s)  8<*l 


.  ,  ( £««i  _  y  $!i!  _£  ilil\ 
'  8(»)  u°  8(s)  *8(«)/ 


This  transfer  function  is  programmed  but  is  printed  out  only  when  l  i: 


different  from  zero. 
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Some  of  the  more  subtle  characteristics  of  the  equations  are: 

1)  They  cannot  be  used  to  obtain  the  basic  airframe  characteristics 
while  the  aircraft  is  in  a  steady  pull-up  and  the  load  factor  is  greater 
than  1.0  because  the  terms  involving  Qq  have  been  deleted.  While  it 
would  be  desirable  to  determine  the  airframe's  characteristics  under 
load,  even  if  the  equations  could  accept  the  necessary  inputs,  the 
aerodynamic  coefficients  would  have  to  be  corrected  for  aeroelastici ty 
under  load. 

2)  Initial  conditions  of  any  angle  greater  than  15  degrees  inject 
errors  of  greater  than  1%.  For  the  sine  error  at  15° 


%  error  = 


15/57.3-sin  15° 
15/57.3 


1.13% 


For  the  cosine  error  at  15° 


(30) 


I  error  = 


I  —  cos  1 5° 
cos  15° 


3.53% 


(31) 


The  tangent  error  is  -2.36%.  Thus  the  small  angle  assumption 
injects  as  much  as  3.5%  error  at  15°  of  aQ  or  r  ,  which  should  be  the 
maximum  error  in  any  of  the  airframe  characteristics.  This  is  not 
considered  an  unacceptable  level  of  error  since  aircraft  flight  angles 
are  generally  less  than  15°  and  the  basic  aerodynamic  data  is  seldom 
accurate  within  3%. 

3)  The  equation  cannot  be  used  for  time  and  motion  studies  involving 
large  angles  because  both  small  angles  and  small  perturbations  were 
assumed  and  these  may  not  be  small  during  a  dynamic  simulation. 

Programming  for  the  longitudinal  equations  is  discussed 
further  in  Section  III. 
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2.  LATERAL-DIRECTIONAL  MOTION 

The  lateral-directional  equations  of  motion  are  derived  from  IF^, 

EL,  and  EN  and  are  presented  in  Appendix  C  as  Equation  C-l ,  C-2,  and 
C-3.  The  characteristic  equation,  which  is  a  quintic,  (with  a  root 
at  s  =  0)  and  the  transfer  functions  are  derived  in  the  same  manner  as 
the  longitudinal  equations  or  motion. 

The  three  basic  transfer  functions  are  8(s)/6(s),  <j>(s)/6(s),  and 
r(s)/6(s),  where  r(s)/6(s)  is  sip  (s)/<S(s) .  A  fourth  transfer  function 
a'(s)/6(s)  is  also  included  and  is  similar  to  a  (s)/<5  (s)  in  that  it 

J  ^  t. 

is  derived  from  the  three  basic  transfer  functions  (see  Appendix  II). 

The  transfer  functions  are  presented  for  both  control  deflections, 
i.e.,  aileron  and  rudder. 

One  primary  handling-qualities  parameter,  the  to^/wp  ratio,  is 
calculated  from  the  Dutch  roll  frequency  and  the  frequency  of  the 
numerator  of  the  roll  angle  transfer  function.  No  approximations 
are  used  (see  Appendix  C). 

Two  of  the  three  equations  are  selected  and  solved  simultaneously 
for  the  <(>  to  8  ratio.  Since  this  is  a  complex  vector  (or  phasor),  the 
magnitude  |4>|/|B|  is  the  square  root  of  the  sum  of  the  squares  of  the 
real  and  imaginary  parts  of  the  numerator  and  demoninator.  This  is 
shown  in  detail  in  Appendix  C). 

Time  to  1/2  amplitude  and  time  to  double  amplitude  for  the  roll 
and  spiral  modes  are  not  calculated.  These  calculations  could  be  inserted 
at  the  expense  of  time  and  effort,  but  they  are  straightforward  and  are 
easily  calculated.  For  the  value  of  T^  or  T2>  for  an  aperiodic  mode, 
simply  multiply  the  time  constant  by  0.693.  The  derivations  are  given 
in  Appendix  D. 

3.  ASSUMPTIONS  FOR  THE  EQUATIONS  OF  MOTION 

1)  The  airframe  is  assumed  to  be  a  rigid  body  at  constant  mass 
and  inertias. 

2)  The  earth  is  planar  and  fixed  in  space,  and  the  earth's  atmos¬ 
phere  is  fixed  with  respect  to  the  earth. 
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3)  Rate  of  change  of  mass  with  respect  to  time  is  zero. 

4)  The  XZ  plane  is  a  plane  of  symmetry. 

5)  The  disturbances  from  the  steady  flight  condition  are  sufficiently 
small  to  neglect  products  and  squares  of  the  changes  in  velocities  when 
compared  to  the  total  values.  Also,  changes  in  air  density  during  a 
disturbance  are  zero. 

6)  The  airframe  is  initially  wings  level,  and  the  only  nonzero 
initial  velocity  is  UQ.  (VQ  =  WQ  =  0  defines  stability  axes;  but  in 
some  lateral-directional  options,  output  is  provided  in  any  desired 
symmetrical  body  areas. 

7)  Vehicle  motions  are  slow  enough  that  unsteady  aerodynamic 
effects  can  be  ignored. 

8)  Longitudinal  motion  does  not  induce  lateral-directional  motion. 

9)  The  change  in  thrust  with  respect  to  velocity  is  linear. 

10)  No  atmospheric  disturbances  occur.  In  the  presence  of  a  steady 
wind,  motion  is  calculated  with  respect  to  the  air  mass. 


AFFDL-TR-78-203 


SECTION  III 

DISCUSSION  OF  THE  COMPUTER  PROGRAMS 

Two  separate  computer  programs  are  shown,  one  for  the  three-degree- 
of-freedom  longitudinal  characteristic  equation  and  five  transfer  functions, 
and  one  for  the  three-degree-of-freedom  lateral -directional  characteristic 
equation  and  four  transfer  functions.  Both  programs  are  written  in 
Fortran  IV  language  for  the  CDC  6600/CYBER  76  computers.  The  programs 
contain  the  Fortran  subroutine  DMULR  (double-precision  MULER)  which  is  used 
to  calculate  the  roots  of  the  equations.  In  addition,  the  longitudinal 
program  contains  a  Fortran  subroutine  called  FRQCK  (Frequency  Check). 

The  forms  for  the  inputs  and  outputs  of  the  two  programs  are  similar  and 
the  same  basic  programming  method  was  used. 

1.  LONGITUDINAL  PROGRAM 
a.  General 

The  longitudinal  program  accepts  data  in  several  forms,  and 
outputs  in  the  form  of  airframe  characteristics  and  transfer  functions. 

The  roots  of  the  equations,  associated  mode  time  constants,  damping, 
and  frequency,  and  the  coefficients  of  the  equations  are  also  printed 
on  output.  An  example  of  the  output  is  shown  on  pages  103  through  110. 

The  following  step-by-step  explanation  of  what  the  program  does 
will  help  to  explain  the  program's  operation,  input,  and  output. 

(1)  To  run  the  program,  prepare  a  set  of  aerodynamic  data 
of  the  type  shown  in  Table  1.  Column  4  of  Table  1  lists  the  data 
identification  numbers  associated  with  each  data  type;  the  identification 
number  for  the  specific  data  type  must  appear  in  Columns  1,  2,  and  3  of 
the  first  data  card  for  each  run.  For  further  explanation  of  the  input 
data  card,  see  Figure  3. 
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I 


TABLE  1 


LONGITUDINAL  INPUT  DATA 


Data  Type 

Units 

Axis 

Data  Iden¬ 
tification 
Number 

Option 

Dimensional 

ft,  sec,  radian 

stability 

0  0  0 

Nondimensional 

all  per  radian 

stability 

1  0  0 

all  per  degree 

stability 

1  0  1 

a,  6  per  degree 
a,  q  per  radian 

stability 

1  0  2 

Derivative  mix 

all  per  radian 

stability 

1  0  5 

Namelist 

all  per  degree 

stability 

1  0  6 

Namel ist 

a,  6  per  degree 
a,  q  per  radian 

stability 

1  0  7 

Namelist 

all  per  radian 

body 

1  1  0 

all  per  degree 

body 

1  1  1 

ct,  6  per  degree 
a,  q  per  radian 

body 

1  1  2 

Derivative  mix 

all  per  radian 

body 

1  1  5 

Namelist 

all  per  degree 

body 

1  1  6 

Namel ist 

a,  6  per  degree 
a,  q  per  radian 

body 

1  1  7 

Namelist 

Coupling  numerators  are  obtained  by  adding  5  to  the  first  digit  of  the 
data  identification  number;  for  example,  500  is  the  new  data  identifi¬ 
cation  number  for  dimensional  stability  data  in  radians. 
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(2)  The  data  are  read  and  converted,  if  necessary,  to  dimen¬ 
sional  stability  axis  data.  The  input  data  and  the  dimensional  data  are 
printed  on  output  to  allow  a  rapid  check  for  errors  in  the  input  data. 
Printing  the  input  data  and  converting  it  to  the  proper  form  takes 

the  first  170  cards  (see  the  program  listing). 

(3)  The  next  operation  is  to  calculate  the  coefficients  of 
the  denominator  (characteristic  equation)  and  then  to  call  the  sub- 

t  h 

routine  DMULR  to  calculate  the  roots  of  an  nu  order  equation. 


A  feature  of  this  subroutine  is  that  the  actual  location  of 
the  root  in  the  complex  plane  is  found  for  both  the  first  and  second 
order  factor.  For  example,  a  first  order  factor  has  the  form 


<s  +  |)=  0 


(32) 


and  the  solution  or  root  is 


(33) 


It  is  in  the  latter  form  that  DMULR  calculates  the  solutions.  Complex 
pairs  are  in  the  form 


s  =  -£u>n±wn  1  -  C*  i  (34) 

when  the  values  for  the  roots  are  printed  on  the  output  sheet. 

The  first  order  factor  root  will  be  printed  as  seen  in  Equation  33. 
Thus,  negative  roots  are  stable  because  they  lie  in  the  left  half  of 
the  complex  s-plane. 
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(4)  After  the  roots  are  printed  out,  the  program  must  choose 
the  proper  flow  sequence  in  which  to  print  the  characteristics  (c,  u>, 

1/t,  C-j y2>  etc.)  in  the  proper  place  with  the  proper  labeling.  Once 
the  proper  flow  has  been  chosen,  the  program  calculates  the  basic 
airframe  characteristics  for  the  output.  Choosing  the  proper  flow 
sequence  and  calculating  the  values  on  the  first  page  of  the  output 
uses  cards  243  through  344  plus  the  subroutine  frequency  check, 

FRQCK.  FRQCK  is  used  for  the  case  in  which  one  of  the  normally 
second-order  modes  of  the  denominator  (short  period  or  phugoid)  com¬ 
bines  into  two  real  time  constants  instead  of  the  classical  complex 
conjugates.  Frequency  check  then  compares  the  frequency  of  the  one 
remaining  second  order  mode  with  that  of  the  normal  velocity  transfer 
function  numerator.  The  theory  herein  is  based  on  the  knowledge  that 
the  short-period-mode  variables  are  primarily  a  and  0,  while  the  phugoid 
mode  variables  are  u  plus  9  or  r.  During  a  longitudinal  oscillation, 
normal  velocity  will  vary  because  of  the  phugoid  contribution  of  lir  and 

the  short  period  contribution  of  U0,  plus  effects.  The  contribution  of 

a 

Ur  is  usually  more  significant  than  any  short  period  effects,  so  the 
frequency  of  the  normal  velocity  numerator  should  be  somewhere  in  the 
neighborhood  of  the  phugoid  frequency.  Thus,  the  complex  conjugate 
frequency  of  the  characteristic  equation  is  compared  with  that  of  the 
w(s)/6e(s)  transfer  function  numerator,  and  if  it  lies  within  40%  of  the 
w(s)/6g(s)  frequency,  it  is  assumed  to  be  the  phugoid  mode.  Once  this 
information  is  known,  the  proper  write  sequence  can  be  chosen. 

(5)  After  the  denominator  characteristics  are  calculated  and 
printed  on  output,  the  transfer  functions  are  calculated  in  much  the 
same  way.  Once  the  program  has  finished  with  one  set  of  data,  it  goes 
back  to  the  beginning  of  the  program,  reads  the  next  set  of  data,  and 
starts  all  over  again  for  this  next  run.  The  second  and  any  successive  runs 
need  not  be  the  same  type  of  data  as  any  other  run  because  each  set  of 

data  is  identified  as  shown  in  Table  1. 
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b.  Input  Parameters 


The  longitudinal  input  parameters  are  straightforward  and  are 
based  on  the  definitions  in  Reference  1.  An  explanation  of  some  of 
the  parameters  however,  will  aid  in  their  use. 


Note  from  Table  2  that  the  acceleration  of  gravity  is  a  required 
input.  This  parameter  varies  with  altitude  to  an  extent  that  at  very 
high  altitudes  its  variation  should  be  taken  into  account.  At  100,000 
feet,  an  altitude  no  longer  considered  unattainable,  the  error  resulting 
from  using  the  sea  level  value  is  9.45%. 


The  distance  from  the  CG  to  the  thrust  line,  z is  included; 
it  affects  the  characteristic  equation  only  through  its  influence  on 
M  ,  and  it  also  affects  the  numerator  characteristics  if  Tr  is  specified. 

U  Oy 

The  parameter  is  seen  in  the  equation  for  M^: 


/>su0c  *tT8t 

O  '  2  Iyy  Iyy 


(35) 


The  parameter  Tfi  ,  or  the  change  in  thrust  with  throttle  deflection 
(or  RPM),  affects  the  terms  Xg,  Z^,  and  M^: 


p SU0Z  „  ,  _  cos(£  +  a) 

!S  *  2m  CDg+  T8t  m 


(36) 


/>SUo  tin  (£+a ) 

z8‘  -TST-cl8-t8t- 


m 


(37) 
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Thus,  if  ,  £,  and  are  specified,  the  transfer  functions  are  not 

totally  elevator  terms  but  include  the  thrust  effects.  If  only  the 

elevator  terms  are  desired,  specify  =  0  and  input  CL  , 

t  6 

Cp  ,  and  Cm  .  If  the  transfer  functions  with  respect  to  thrust  are 

6  6 

desired,  set  C,  =  Cn  =  C  =  0  and  define  T.  ,  C>  and  z.  .  Note  that 
L6  <5  m6  6T  1 

it  doesn’t  matter  what  dimensions  are  used  for  T.  because  the  transfer 

6T 

function  that  results  is  a  ratio;  as  long  as  the  ratio  is  multiplied 
by  the  correct  units,  the  equality  is  not  destroyed.  Thus 

01  s) 


x  ST(s)  =  9  is) 

O  T  is)  1 


(38) 


and  as  long  as  the  two  6^-(s)'s  have  the  same  units,  continuity  is 
assured. 

The  term  5  is  the  angle  of  inclination  of  the  thrust  axis  with 
respect  to  the  body  axis  and  is  defined  by  Figure  2. 


axis 
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C,  and  Cn  are  the  trim  values  and  Cm  is  defined  as 


•m  ■ 


111 

qsJ 


(39) 


-y-  ^Cq/cos  l£+a)  +  CLtan  t£  +  a)  j 


(40) 


where  T,  the  thrust,  at  trim  in  rectilinear  flight  is 


T  =  CD  /  cos  (  £  +  a  )  +  cLtan  <  £  +  a  )  (41) 


The  Mach  number  derivatives  are  used  in  the  program  as  opposed  to 
the  u  derivatives.  By  definition  in  Reference  1 


r  -  ^£l  M_  r 

CLu  '  2  au  ‘  2  CLM 


(42) 


Thus,  when  C,  (or  Cn  or  C  )  are  set  in  the  program,  they  are 
M  M  M  mM 

multiplied  by  j  to  evaluate  the  u  derivatives  before  the  calculations 
proceed.  If  no  Mach  derivatives  are  used,  the  value  for  M  can  be  zero. 


The  angle  of  attack  input  is  used  only  in  the  calculation  of 
X,  and  M„  as  seen  in  Equations  36  and  37;  a  can  be  zero  if  T.  is  zero. 

0  6  Oy 

A  flight  path  angle  of  more  than  15°  should  not  be  specified  because 
of  the  small-angle  assumption. 

The  variable  &x  is  included  in  case  the  acceleration  transfer 
function  is  desired  at  some  point  other  than  the  CG.  The  sign  on  £x  is 
positive  for  points  forward  of  the  CG  and  its  magnitude  is  measured 
in  feet. 
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For  body  axis  derivatives,  the  angle  of  attack  is  necessary  as  the 
programs  convert  all  data  to  the  stability  axis.  Other  than  that,  the 
previous  discussion  is  valid. 

For  the  dimensional  input  data,  the  last  three  values,  Ve>  L^, 

and  nz  are  not  needed  to  obtain  the  denominator  and  numerator 

a 

solutions.  The  values  will  be  printed  out  if  non-dimensional  data  are 
used,  since  all  the  values  necessary  for  these  calculations  are 
available. 

c.  Input  Data 

The  method  for  inserting  input  data  is  similar  for  both  programs 
In  the  example,  Figure  3,  longitudinal,  nondimensional  stability  axis 
derivatives  a>re  given  in  units  of  1/radian.  From  Table  1,  the  data 
identification  number  is  100,  and  this  number  must  appear  in  Colums  1, 

2,  and  3,  respectively,  of  the  first  card  of  each  data  set  (See  Figure  3) 
To  get  longitudinal  coupling  numerators,  make  the  number  in  column  1, 
card  1,  5  greater  -  use  5  instead  of  0,  or  6  instead  of  1.  Columns 
4,  5,  and  6  are  reserved  for  the  run  number;  this  number  may  be  in  any 
alphanumeric  format  desired.  In  this  example  the  number  is  15A. 

Columns  7  through  72  inclusive  are  used  to  write  anything  required  to 
identify  the  run,  such  as  the  altitude,  date,  or  aircraft.  Columns  73 
through  80  are  used  for  sequencing  the  cards;  these  columns  are  not 
read  by  the  machine  and  are  used  only  to  identify  the  card  and  run 
number.  In  the  example,  the  first  card  is  labelled  L0NG15A1,  which 
means  that  this  is  the  first  card  of  run  15A,  and  presents  longitudinal 
data.  Card  1  is  not  included  in  Table  2.  The  format  of  card  1  is 
the  same  for  all  data  types.  It  must  be  present  and  contain  the  data 
identification  numbers  in  columns  1  through  3.  Cards  2  through  7 
present  the  data,  and  each  number  shown  in  Figure  3  corresponds  to  the 
parameter  included  in  Table  2  for  data  type  100.  Each  datum  must 
appear  somewhere  in  the  assigned  12  spaces;  therefore,  the  value  for 
C^  must  appear  on  the  fourth  card  and  must  be  entirely  contained 

q 

within  Columns  37  through  48.  Thus,  the  value  for  C^  of  run  number 

q 

15A  in  Figure  2  is  6.3  per  radian. 
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TABLE  2 

LONGITUDINAL  INPUT  FORMATS 


Stability  axis,  nondimensional 

100  =  per  radian 

101  =  per  degree 


73 

Card  2 


Card  3 


C.  Card  4 

lM 


Body  axis,  nondimensional 

110  =  per  radian 

1 11  =  per  degree 


a(deg) 


Stability  axis,  dimensional  =  000 


Card  5 


C  Card  6 

mM 


Card  7 


73 

Card  2 


5(deg)  Card  3 


Cj,  Card  4 
m 


Card  5 


Card  6 


Card  7 


13 

25 

z 

M 

u 

u 

r 

M,., 

w 

w 

Z‘. 

M 

L 

% 

a 

U(ft/sec)  g 


X* 

6T 


*See  Table  2  continuation  for  plot  option  codes 


49 

Zw 

61 

M 

w 

73 

Card  2 

Z 

M 

Card  3 

q 

q 

g 

r0(deg) 

Card  4 

zs 

aT 

6T 

Card  5 

20 


AFFDL-TR-78-203 


The  format  of  the  input  data  can  be  written  in  only  one  way. 

The  number  6,753,000,  for  example,  must  be  written  as  6753000.  and  can 
appear  anywhere  in  the  allowable  field.  The  number  -.00745  is  written 
as  -.00745  in  the  allowable  field. 

The  aerodynamic  data  must  all  be  in  consistent  units  or  as  indicated 
in  Table  1.  All  angle  inputs  are  in  degrees. 

Namelist  input  is  obtained  as  shown  in  Table  1.  The  variable 
names  in  the  namelist  are  exactly  as  printed  on  the  output  of  the 
program;  that  is,  flight  path  angle  is  called  "GAMA",  pitch  inertia 
is  listed  as  "I  ,"  C.  is  "CLAD"  etc.  All  input  options  available 

y  a 

to  the  user  are  available  in  the  namelist  form. 

The  namelist  for  the  longitudinal  program  is  titled  "Change"  and 
is  used  in  the  following  manner; 

(1)  The  first  card  of  each  run  is  written  in  the  usual  manner 
with  Column  3  keyed  for  the  namelist  input. 

(2)  The  next  card  must  have  a  blank  in  Column  1  followed  by 
the  characters  "$CHANGE"  followed  by  at  least  one  blank  space. 

(3)  On  the  same  card,  the  parameters  to  be  changed  are  written 
separated  by  commas.  Parameters  not  entered  will  remain  the  same 

as  on  the  previous  run.  The  namelist  is  then  closed  by  a  dollar  sign 
"$".  There  is  no  restriction  on  the  order  in  which  the  parameters 
being  changed  must  be  entered. 

(4)  Avoid  writing  in  Columns  73-80.  If  more  space  is  needed,  go 
to  another  card  but  leave  a  blank  in  Column  1.  Do  not  number  cards  if 
more  than  one  is  needed  for  the  namelist.  Numbering  is  permitted  after 
the  closing  "$". 
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Namelist  Example  (Longitudinal): 

107  SAME  CONDITIONS  AS  ABOVE  BUT  REDUCED  CLQ 
SCHANGE  CLQ  =6.0$ 


(4)  Nondimensional  and  dimensional  (primed  and  nonprimed)  data  can 
be  switched  from  run  to  run  as  desired,  but  the  "per  radian/per  degree" 
option  cannot  be  switched  nor  can  stability  and  body  axis  data 
be  interchanged. 


For  successive  runs  using  either  "LONG."  or  "LATE.",  merely  add 
seven-card  sets  to  the  data  deck.  An  end-of-record  card  inserted  between 
the  two  kinds  of  data  sets  will  allow  both  "LONG."  and  "LATE."  to  be 
run  together. 

d.  Output 

The  complete  longitudinal  program  and  a  sample  output  are 
presented  in  Appendix  E.  The  output  data  is  explained  in  relation  to 
the  sample  output  data  sheet.  In  the  example,  the  first  item  printed 
out  is:  ROOTS  OF  A/C  LONGITUDINAL  TRANSFER  FUNCTIONS.  This  title  is 
part  of  the  program  and  will  always  appear,  followed  by  the  run 
number  (which,  in  this  case,  is  15A).  The  third  line  contains  the  exact 
information  that  appeared  in  Columns  7  through  72  on  the  first  card 
of  this  data  package  (see  Input  Data).  Following  this  run  identification 
is  the  type  of  input  data  and  the  data  itself.  The  output  format  is 
the  same  as  the  input  format,  i.e.,  the  numerical  values  for  s,  c,  M, 

U  ,  p,  and  g  all  appear  as  on  the  second  card  of  this  run. 

The  dimensional  derivatives  are  then  calculated  and  shown.  Note 

that  the  values  for  V  ,  L  ,  and  nz  are  also  presented  here.  The 

a 

program  calculates  the  coefficients  of  the  denominator  and  solves 
for  the  roots  of  the  quartic  equation.  The  roots  of  the  equation  are 
then  printed  in  the  form  of  s^  s^  =  a  ±  jto.  For  the  case  where  the 
roots  are  a  complex  pair,  the  form  is 


s 


I 


(43) 
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and  for  the  case  of  a  real  root  with  zero  imaginary  part,  the  form  is 

s  =  ”  T-  (44) 

Comparing  these  forms  with  the  numbers  printed  under  ROOTS  (COMPLEX 
FORM),  it  can  be  seen  that  the  roots  to  the  equation*  are 


, ,  s2  =  —  .008943  ±  .  1852  j 

(45) 

3,  s4  *  -  .4507  ±  2.657  j 

(46) 

Now  the  program  must  choose  which  complex  pair  is  the  phugoid  and  which 
is  the  short  period.  This  decision  is  made  by  comparing  the  frequencies 
of  the  modes.  The  frequencies  are  calculated  by  taking  the  square 
root  of  the  sum  of  the  squares  or 

(*>n)2  +  “n  (<s/i  -  C*  )  s  wn  (47) 

The  larger  frequency  is  assumed  to  be  that  of  the  short  period.  The 
calculated  values  are  then  printed  in  their  proper  places,  which  yields 
the  data  seen  immediately  below  the  values  of  the  roots.  Note  here 

that  ZP  =  Shugoid  and  WP  =  “phugoid’  etc' 


The  characteristics  of  each  mode  are  then  calculated  and  printed. 
The  values  are  calculated  as  follows: 


Period  =  P  = 


2  w 


seconds  j 


wn  vA-C1 

Time  to  half  amplitude  =  0.693l5/£<un  ^secondsj 


(48) 

(49) 


Time  to  one  tenth  amplitude 


2.30259  /  £u>n 


^seconds j 


Cycles  to  half  amplitude 


(50) 

(51) 


Cycles  to  one  tenth  amplitude  * 


Tl/IO 

P 


(52) 


*The  signed  digits  following  E  or  D  in  a  number  on  output  specifies  the 
power  of  10  by  which  the  number  must  be  multiplied. 
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where  the  bracketed  quantity  shows  the  dimension.  For  the  case  of  an 

unstable  oscillatory  mode,  the  program  will  print  the  time  to  reach 

2  or  10  times  the  amplitude.  Finally  the  coefficients  of  the  denominator 
4  3  2 

quartic  As  +  Bs  +  Cs  +  Ds  +  E  are  printed. 

The  transfer  function  numerator  calculations  are  printed  on  the 
next  page  as  follows: 

Numerator  of  0/6,  "THETA  PER  CONTROL  DEFLECTION" 

Numerator  of  u/6,  "LONGITUDINAL  VELOCITY  PER  CONTROL  DEFLECTION" 
Numerator  of  w/6,  "NORMAL  VELOCITY  PER  CONTROL  DEFLECTION" 

Numerator  of  fi/6,  "ALTITUDE  RATE  PER  CONTROL  DEFLECTION" 

Numerator  of  a.,/6,  "VERTICAL  ACCELERATION  PER  CONTROL  DEFLECTION" 

(the  free  s  in  the  az/6  numerator  is  not  printed.) 

Each  numerator  is  labelled  and  the  roots,  time  constants  (  or  r;  and 
co  ) ,  and  coefficients  are  printed.  A  non-zero  value  of  &  will  cause 

1 1  X 

the  normal  acceleration  numerator  terms  to  be  printed;  this  is  for 
az  at  a  distance  &x  from  the  CG. 

There  is  an  interesting  point  to  be  brought  out  in  regard  to  the 

normal  velocity  per  delta  elevator  transfer  function.  The  values  of 

the  roots  (complex  form)  show  that  in  Run  No.  Ill  the  third  root  has 

-45 

an  imaginary  part  of  .8787  x  10  .  This,  of  course,  is  impossible 

because  a  complex  root  must  have  a  conjugate  as  another  solution  (the 
first  two  roots  do  form  a  complex  pair).  The  imaginary  part  of  the 
third  root  is  spurious  and  is  stored  unintentionally  in  this  location 
by  the  subroutine  DMULR.  Care  must  be  taken  to  eliminate  such  erroneous 
values  for  the  roots.  When  these  values  appear,  the  program  will 
usually  ignore  them;  however,  the  printed  values  should  always  be  checked 
by  considering  the  coefficients  of  the  transfer  function.  Notice  here 
that  the  form  of  the  numerator  is 

Aws’+Bws'  +  Cws  +  Dw  =  0  (53) 
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and,  since  all  the  coefficients  are  nonzero,  three  roots  will  appear 

either  as  a  real  root  and  a  complex  pair  or  as  three  real  roots; 

anything  else  is  in  error.  Erroneous  values  can  be  spotted  easily. 

5 

Roots  with  values  greater  than  10  are  probably  the  result  of  division 
by  one  of  these  very  small  "noise"  numbers. 

Another  feature  of  the  transfer  function  print-out  is  that  poles 
and  zeros  (roots)  with  zero  real  and  imaginary  parts  are  not  shown. 

For  example,  an  inherent  pole  or  zero  of  s  =  0  is  not  printed  out  on 
either  page  of  the  output. 

Note  that  the  first  set  of  sample  data  shows  a  characteristic 
equation  consisting  of  an  oscillatory  mode  and  two  aperiodic  modes. 

The  program,  by  use  of  FRQCK,  has  determined  that  the  oscillatory 
mode  is  the  short  period.  This  interpretation  should  be  treated 
with  caution. 

(54) 

(55) 

(56) 

(57) 

e.  Coupling  Numerators 

0U  wu  em 

The  coupling  numerators  Ng  g  »  ■  Ng  S  ’  NS  S  are  obtained 

by  straightforward  substitution  of  columns  in  the  characteristic 
determinant  A. 

For  the  coupling  numerators  involving  h,  consider  the  equation 


The  output  symbols  are  defined  as  follows: 

ZSP  =  c  short  period 

WSP  =  a)  short  period  (undamped  actual  frequency) 
1'TP'  ■  (1/Tphu30)d), 

,/TP2-  ^Viugold’z 


h  -f 


9=0 


(58) 


which  is  more  rigorous  than  Equations  13  and  14. 
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An  augmented  matrix  can  be  formed  from  this  equation  and  A: 


s  -xu 

-  (  S  x^  +  xw) 

g  cos  1^  -  s 

-Zu 

5  ( i  - z*)-zw 

gsln^  -s 

-Mu 

—  (sM^  +  Mw) 

s  (s  -  Mq) 

sinl^> 

cosro 

Lfe  cosl^, 

s 

s 

s 

U 

x1 

_ 1 

W 

* 

\ 

9 

\ 

h 

0 

(59) 


.9  h 


,uh 


,wh 


are  formed  by 


The  coupling  numerators  N  "  ,  N""  ,  N' 

°e°T  °T°e 

replacing  columns  of  this  4x4  matrix  with  the  indicated  control 

columns,  then  expanding  the  resulting  matrices  in  terms  of  minors  of 
elements  of  the  bottom  row.  It  is  seen  that  1/s  multiplies  each 
coupling  numerator  in  its  entirety.  In  order  to  indicate  that,  the 
printout  legends  read 

"S  TIMES  THETA  TO  ELEVATOR,  ALTITUDE  TO  THRUST" 

"S  TIMES  LONGITUDINAL  VELOCITY  TO  THRUST,  ALTITUDE  TO  ELEVATOR" 

"S  TIMES  NORMAL  VELOCITY  TO  THRUST,  ALTITUDE  TO  ELEVATOR" 

ua. 

One  given  coupling  numerator  involves  normal  acceleration, 

Now,  inertial  acceleration  is  T  e 

aj  =  sw  -  Uo  s  9  —  Jfc%  s2  6 

Use  this  equation  to  augment  A,  giving 


(60) 


U07 

N8T8e= 


X  -(sx*  +  xw) 


9 cos E,  -  sX, 


8e 


Zg  —  s  (l  ~  9s'n  ^  s  (u0  +  Zq  j 


(sMd 


a  +  Ma) 


-s 


s  (s  -  Mq) 
•2,s2+U0s 


M„ 


(61) 
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which  is  expanded  to  obtain 


uo. 


N 


STSe 


(62) 


This  numerator  is  labeled 

"S  TIMES  LONGITUDINAL  VELOCITY  TO  THRUST,  ACCELERATION  TO  ELEVATOR" 
Again  the  s  =  0  root  (here  a  zero  instead  of  a  pole)  is  not  given. 

Note  that  here  az  is  inertial  acceleration.  It  does  not  include 
gravity,  as  sensed  acceleration  does.  However,  account  is  taken  of 
sensor  location  forward  or  aft  of  the  CG. 

2.  LATERAL-DIRECTIONAL  PROGRAM 

a.  General 

This  lateral-directional  program  calculates  the  coefficients  of 
the  three-degree-of-freedom,  small-perturbation,  lateral-directional 
equations  of  motion.  These  coefficients  are  then  used  to  calculate  the 
coefficients  of  the  characteristic  equation  and  the  numerators  of  the 
airplane  transfer  functions  for  aileron  and  rudder  inputs.  The  character¬ 
istic  equation  and  the  transfer  function  numerators  are  factored,  and 
the  factors  are  used  to  compute  several  of  the  more  pertinent  lateral - 
directional  flying  qualities  parameters  (see  Appendix  C). 

The  main  portion  of  the  program  is  limited  to  computing  the 
characteristic  equation  and  the  numerators  for  the  <J>,  8,  and  ip 
transfer  functions.  The  numerator  calculations  will  be  bypassed  if 
the  control  deflection  derivatives  are  all  zero.  The  lateral-directional 
program  was  modified  extensively  to  agree  with  Reference  5. 
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b.  Input  Parameters 

The  lateral-directional  program  accepts  the  moments  and  products 
of  inertia  in  the  body  axes,  and  it  converts  the  inertias  to  the 
stability  axes  with  the  use  of  a.  This  is  the  only  function  of  the 
a  input;  thus,  body  axes  inertias  will  result  if  a  =  0.  Use  a  =  0 
if  inertias  are  in  stability  axes.  Setting  a.  ?  0  will  convert 
body-axes  inertias  to  stability  axes  for  the  calculations. 


The  parameter  £x  is  used  when  the  side  acceleration  transfer  function  is 
desired  at  some  point  other  than  the  CG. 

An  interesting  point  can  be  brought  to  light  here  concerning  the 
use  of  the  6^  derivatives.  Today's  aircraft  usually  employ  more  than 
one  roll  axis  control,  such  as  aileron  and  spoilers.  In  this  case, 
using  only  one  of  the  control  derivatives  as  the  input  is  unrealistic 
because  this  is  not  the  way  the  aircraft  will  behave.  The  method  that 
has  been  employed  successfully  is  to  convert  the  control  power  to  the 
wheel  throw  or  C0  etc.,  as  follows: 


and 


+  •  • 


(63) 


and 


(64) 


(65) 
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Aerodynamic  Data  (See  Figures  4,  5,  and  Table  3) 

Using  option  000,010  or  100,  the  aerodynamic  data  may  be  input  in 
stability  axes  or  body  axes  as  follows:  (See  Figures  4  and  5  and  Table  3). 

Input  in  Stability  Axis  System  aA  s  0  (66) 

Input  in  Body  Axis  System  aA  "  aTRIM  'w  (67) 

Inertial  Data  (See  Figures  4  and  5) 

Using  Option  100,  the  inertia  data  may  be  input  in  body  axes  or  an 
arbitrary  axis  system  as  follows: 

Input  in  Stability  Axis  System  Oj  =  0  (68) 

Input  in  Body  Axis  System  °I  =  aTRIM  ”  (69) 

Input  in  Arbitrary  Axis  System  aI  =  ai  (70) 

Output  Axes  System  (See  Figures  4  and  5) 

Using  Option  000,010  or  100,  the  output  may  be  referred  to  the  stability, 
body,  or  an  arbitrary  axis  system  as  follows: 

Output  in  Stability  Axis  System  a„  =  0  (71) 

Output  in  Body  Axis  System  ax  =  QwTRIM ~'w  (72) 

Output  in  Arbitrary  Axis  System  ax  =  ax  (73) 

The  remainder  of  the  derivatives  seen  in  Table  4  should  be  self-explanatory, 
c.  Input  Data 

The  method  of  entering  lateral-directional  data  is  similar 
to  that  of  the  longitudinal  program.  However,  Columns  7,  8,  and  9 
on  Card  1  are  also  used  for  program  control. 

The  lateral-directional  computer  program  can  provide  time 
histories  for  a  rudder  or  aileron  step  plus  the  MIL-F-8785B  parameters. 
Angle  of  attack  selections  for  body,  stability,  inertia,  and  arbitrary 
axes  are  included,  as  is  a  plot  option  and  the  ability  to  input  the 
attitude  and  control  derivatives  as  per  degree  and  rate  derivatives 
as  per  radian.  (See  Tables  3  and  3A.) 
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TABLE  3 

LATERAL-DIRECTIONAL  INPUT  DATA 


Data  Type 

Units 

Axis 

Data  Iden¬ 
tification 
Number 

Options 

Dimensional , 

primed 

stability 

101 

unprimed 

stability 

100 

Nondimensional 

per  radian 
per  degree 

stability 

stability 

000 

010 

6a,  6r,  3  per  degree 
p,  r,  0  per  radian 

stability 

020 

3  per  degree,  all 
others  per  radian 

stability 

030 

control  derivatives 
per  degree,  all 
others  per  radian 

stabil ity 

040 

per  radian 

stabi 1 ity 

050 

Namelist 

per  degree 

stability 

060 

Namel ist 

<SA,  <SR,  6  per  degree 
p,  r,  b  per  radian 

stability 

070 

Namelist 

3  per  degree,  all 
others  per  radian 

stability 

0«0 

Namelist 

control  derivatives 
per  degree,  all 
others  per  radian 

stability 

090 

Namelist 

Note:  To  get  lateral-directional  coupling  numerators,  add  5  to  the  first 
digit  of  the  Data  Identification  Number. 


Table  3  shows  that  all  data  must  be  in  the  stability  axes;  this  is  not 
entirely  true  since  the  primary  difference  is  in  the  angle  of  attack. 
The  lateral-directional  program  transfers  the  input  body-axes  inertias 
to  stability-axis  inertias;  therefore,  specifying  an  a  =  0  will  yield 
an  effective  set  of  derivatives  for  body  axis. 
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TABLE  3A 

LATERAL-DIRECTIONAL  OPTIONS 


OPTIONS 

OUTPUT 

001 

Basic  calculations  (roots  of  characteristic  equation), 

<)>,  B>  and  \p  transfer  function  numerators,  modal 

O 

characteristics  including  |4>/B|,  1 4> I / 1 vg j  and  u)pR|(j)/B|DR 

002 

Basic  calculations  plus  p  and  6  modal  response 

coefficients,  Posc/Pav>  P2/Pq  A$mx’  and  VKss  for  a 

unit  step  lateral  control  input,  <Posc/<Pa\/>  ^  for  a 
unit  impulse  lateral  control  input  and  $  p/B  for  the  free 
Dutch  roll  oscillation. 

-02 

Options  001  and  002  plus  time  histories  of  8>  <P,  and  p 
for  an  aileron  and  for  a  rudder  step. 

003 

Options  001  with  the  acceration  transfer  function  at  the 
£x  distance  from  the  CG. 

NOTE:  The  option  codes  shown  in  this  Table  are  placed  in  Columns  7, 
8,  and  9  of  Card  Number  1. 


TABLE  2  (CONT'D) 

Plot  Options  -  Card  7 


Code  (Col.  25) 

Options 

0  (Blank) 

No  plot 

1. 

Tabulation  of  time  history  (lateral-directional 

only) 
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TABLE  4 

LATERAL-DIRECTIONAL  INPUT  FORMATS 


Nondimensional ,  unprimed 
000  =  per  radian 
010  =  per  degree 


1 

p(slugs/ft3) 

13 

U(ft/sec) 

25 

S(ft2) 

37 

W(lbs) 

61 

Ix(slug-ft2) 

73 

Card  2 

1 2 ( si ug-ft2 ) 

Ixz(slug-ft2) 

g 

oij  (deg) 

r0 ( deg ) 

Vft> 

Card  3 

Cy 

ye 

CyB 

% 

% 

s 

6A 

c>s 

6R 

Card  4 

% 

% 

\ 

c*, 

SA 

c*. 

SR 

Card  5 

s 

s 

Cnr 

6a 

6r 

Card  6 

aA 

a 

X 

PLT* 

Card  7 

Dimensional 
_ 100  =  unprimed 


l 

U(ft/sec) 

13 

g 

25 

dj  (deg) 

n 

HI 

61 

Ix ( sl ug-ft2 ) 

73 

Card  2 

Iz(slug-ft2) 

Ixz(slug-ft2) 

Y3 

Y3 

yp 

V 

Card  3 

Y. 

6A 

Y. 

6r 

L3 

lb 

Lp 

Lr 

Card  4 

Lr 

4a 

Lr 

6r 

N3 

N3 

np 

Nr 

Card  5 

N* 

6A 

Nr 

6r 

aA 

ax 

PLT* 

Card  6 

Stability  axis,  dimensional 
_ 101  =  primed 


l 

U(ft/sec) 

13 

9 

25 

T0(deg) 

HI 

49 

Y3 

61 

Y3 

BH 

Y 

P 

Yr 

Y, 

6A 

Yr 

6r 

L3 

L3 

Card  3 

LP 

l; 

l' 

6a 

l' 

6r 

N3 

Card  4 

NP 

Nr 

6a 

Nr 

6r 

PLT* 

Card  5 

*See  Table  3A  for  PLT  option  codes 
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To  obtain  a  plot  of  the  time  histories  provided  by  option  -02, 
the  PLT  space  on  the  input  data  cards  is  used.  PLT  has  a  value  of  one 
for  all  sets  of  data  (runs).  For  all  other  options  or,  if  no  plot  is 
desired  with  option  -02,  PLT  is  zero  or  left  blank. 

When  using  the  namelist  option  the  variable  names  are  exactly 
as  printed  on  the  output  of  the  program;  that  is,  flight  path  angle  is 

called  "GAMA",  roll  inertia  is  listed  as  "IXB",  C« .  is  "CLBD",  etc. 

6 

all  input  options  available  to  the  user  are  given  in  the  namelist  form. 

The  namelist  for  the  lateral -directional  program  is  titled 
"Change"  and  is  used  in  the  following  manner: 

1)  The  first  card  of  each  run  is  written  in  the  usual  manner 
with  Column  2  (lateral-directional)  keyed  for  the  namelist  input. 

2)  The  next  card  must  have  a  blank  in  Column  1  followed  by  the 
characters  "$CHANGE"  followed  by  at  least  one  blank  space. 

3)  On  the  same  card,  the  values  of  the  parameters  to  be  changed 
are  written,  separated  by  commas.  Parameters  not  entered  will  remain 
the  same  value  as  on  the  previous  run.  The  namelist  is  then  closed  by 
a  dollar  sign  "$".  There  is  no  restriction  on  the  order  in  which  the 
parameters  being  changed  must  be  entered  on  the  change  card. 

Namelist  Example:  (Lateral-Directional) 

070  -02  SAME  CONDITIONS  AS  ABOVE  BUT  REDUCED  CNB  AND  CNR 
SCHANGE  CNB  =  .0009,  CNR  =  -.22$ 

4)  Nondimensional  and  dimensional  (primed  and  nonprimed)  can  be 
switched  from  run  to  run  at  will  (however,  the  per  radian/per  degree 
option  cannot  be  switched).  This  may  be  of  use  in  studies  if  the 

data  are  presented  in  nondimensional  form  and  the  effects  of  a  variation 
of  dimensional  parameters  are  to  be  considered. 
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d.  Output 

The  complete  lateral-directional  program  and  a  sample  output 
are  presented  in  Appendix  E.  The  output  data  is  explained  in  relation 
to  the  sample  output  data  sheet  (pages  140  through  151).  In  the  example 
the  first  item  printed  out  is:  ROOTS  OF  A/C  LATERAL  DIRECTIONAL 
TRANSFER  FUNCTIONS.  This  title  is  part  of  the  program  and  will  always 
appear,  followed  by  the  run  number.  The  third  line  contains  the  exact 
information  that  appeared  in  Columns  7  through  72  on  the  first  card 
of  this  data  package  (see  Input  Data).  Following  this  run  identification 
is  the  type  of  input  data  and  the  data  itself.  The  output  format  is 
the  same  as  the  input  format,  i.e.,  the  numerical  values  for  p,  Uo,  S, 

W,  b,  and  I  all  appear  as  on  the  second  card  of  the  input  data  for  this 
run. 

The  input  data  is  read  and  converted  to  dimensional  primed  data, 
if  necessary,  and  the  primed  and  unprimed  data  are  then  printed.  Then 
the  denominator  characteristics  are  calculated  and  printed.  The  five 
roots  listed  include  the  one  which  always  occurs  at  s  =  0  (Equation  C-18). 
The  program  does  not  contain  a  frequency  check  because  if  one  complex 
pair  appears  it  is  assumed  to  be  the  Dutch  roll  mode.  The  roll-spiral 
mode  may  couple  and  the  Dutch  roll  may  split  up  into  two  real  roots; 
when  this  occurs,  the  output  sheet  will  print  the  ?  and  w  and  label 
them  Dutch  roll.  Thus,  care  must  be  taken  when  values  indicate  that 
this  has  occurred.  Examining  the  characteristics  (?  and  to)  and  the 
complex  forms  of  the  roots  should  indicate  which  mode  is  coupled. 

The  case  of  two  sets  of  complex  conjugates  is  not  covered  because 
it  occurs  infrequently.  When  it  does  occur,  an  analogy  will  exist 
between  the  Dutch  roll  and  the  longitudinal  short  period,  and  between 
the  coupled  roll-spiral  and  the  phugoid.  Thus  the  mode  can  be  identified 
by  inspection. 
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When  the  solution  to  the  stability  quintic  contains  two  real  roots, 
the  program  assumes  that  the  smaller  of  the  two  corresponding  time 
constants  (absolute  value)  is  the  roll  subsidence  mode.  Thus,  if  the 
spiral  mode  has  a  smaller  time  constant  than  the  roll  mode,  its  value 
will  appear  as  a  TR  on  output.  This  does  not  occur  often  and  is 
immediately  recognized.  Also,  as  in  the  longitudinal  deck,  roots  with 
negative  real  parts  are  stable. 

Among  the  denominator  characteristics  listed  are: 

TS  x  ,  spiral -mode  time  constant 

TR  ip,  roll -mode  time  constant 

WDR  undamped  natural  frequency  of  Dutch  roll  mode 

WDDR  damped  frequency  of  Dutch  roll  mode. 

A  few  other  Dutch  roll  modal  parameters  (not  dependent  upon  the  input) 
are  also  printed  with  the  denominator  characteristics: 

|<j>|/|e|  "PHI  TO  BETA  RATIO" 

1 I / !  V  I  "PHI  TO  EQUIV  VEL" 

wd2|<t>|/|S|  "FREQ  SQUARED  TIMES  PHI  TO  BETA  RATIO" 

After  the  denominator  characteristics  are  printed,  the  transfer 
function  numerators  are  calculated.  For  example,  the  yaw  rate  to  control 
deflection  transfer  function  has  a  variable  that  is  labelled  1/TR,  where 
the  R  stands  for  the  yaw  rate  (r),  and  not  the  roll  time  constant. 

The  u^/ujq  calculation  needs  from  the  denominator  characteristics 
and  the  4>/S  calculation  is  based  entirely  on  denominator  characteristics. 
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If  the  first  coefficient  of  the  phi  to  aileron,  acceleration  to 
rudder;  psi  to  aileron,  acceleration  to  rudder;  or  acceleration  to 
aileron,  beta  to  rudder  polynomial  is  equal  to  zero,  the  same  value  will 
appear  in  the  printout  for  both  the  C  and  D  coefficients.  In  this  case 
D  coefficient  should  be  disregarded  and  it  should  be  recognized  that 
a  second  order  polynominal  is  being  evaluated.  The  phi  to  aileron, 
acceleration  to  rudder  and  the  psi  to  aileron,  acceleration  to  rudder 
numerators  are  third  order  in  s,  but  the  acceleration  to  aileron,  beta 
to  rudder  is  fourth  order  with  the  last  coefficient  equal  to  zero. 
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SECTION  IV 
CONCLUDING  REMARKS 

These  three-degree-of-freedom  programs  (with  the  exception  of  the 
coupling  numerator  options)  have  been  operational  for  many  years  and 
provide  an  easy  method  of  obtaining  uncoupled  aircraft  dynamic 
characteristics  from  physical  and  stability  and  control  parameters. 

The  coupling  numerator  options  have  been  present  in  the  program  for 
many  years  but  the  codes  to  access  them  were  not  documented.  Conse¬ 
quently,  this  portion  of  programs  has  not  been  as  well  checked  out. 


38 


AFFDL-TR-78-203 


APPENDIX  A 
TRANSFER  EQUATIONS 

Equations  for  Transfer  of  Interim  Data  From  (I)  to  (X)  Axis  System: 


a,  =  a,  -  ax 

i2 

.2 


Ix  =  IXj  cos  a,  +  IZj  sin2 a,  -  IXIj  sin (2a,) 
Iz  =  IZj  cos2  a,  +  1  sin2 a,  +•  Ixz^  sin  (2a,) 

I„=  Iwj  cos  (2a,)+|  (lXi  -  IZj)sin  (2a,) 


(A-l) 

(A-2) 

(A-3) 


(A-4) 


Equations  for  Transfer  of  Aerodynamic  Data  from  (A)  to  (X)  Axis  System: 


a2  =  (a*  -  °a) 


Cg  =  cos2  a2  +  Cn^  sin2  a2  -  +  C„p  j  slna2cosa2 


P  Pa 


C«  =  C«  cos2  a,  -  C_  sinza2  +  \C0  -  Cnr  )sina2cosa9 

£Ta  nPA  'A) 


%  "  %  '  c"fi.  5i"“2 

P  Pa  A 


co  .  s  co  ■  008  a2  "  Cn  •  sin  a2 

lf3  \ 


C.  =  Ca  cos  a 2  -  cn  Sina2 


8  8 


cn_  =  CnD  co»2  a2  -  Ca  sin2  a2  +  (  Ca  -  Cn  \  sin  a2  cos  a2 
p  PA  \  \  \  rA  / 

+  C.  sin2  a2  +  /  Cg  +  Cn  \  sin  a2  cos  a. 
\  \  rA  a/ 


Cn  =  Cn  cos  a2 
r  °rA 


C"o  =  C"/3  cos  a2  +  C£  slna2 

/9  ^a  73. 


(A-5) 

(A-6) 

(A-7) 

(A-8) 

(A-9) 

(A- 10) 
(A-l 1 ) 
(A-l 2 ) 

(A-l 3 ) 
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CnA  cos  a2 


p* 

'8, 


Cn*  cos  a2 


Cv  cos  a. 


C v  COS  Cl 9 
VrA  2 


+  C^> .  sin  a2 

( A- 1 4 ) 

+  sin  a2 

SA 

(A-15) 

-  Cv  sin  a9 
rA 

(A- 16) 

+  C  u  sin  a  o 
>PA  2 

(A-17) 

(A- 1 8 ) 

(A-19) 

(A-20) 
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APPENDIX  B 

LONGITUDINAL  EQUATIONS  OF  MOTION  AND  TRANSFER  FUNCTIONS 


Zf. 


ii  +  g0co«ro  *  T?r  Tgr8RPMcos  C+Xu  +  Xqq  +  Xaa  +  Xad  +  Xg^8e(B 


1) 


2f, 


U0“  -Uoq  +  g0sinFo*  -  -j|r  Tg^ SRPMSin^  +  ZuU  +  Zqq+Zg  8e 


(B-2) 


a  s  y~  Tgr8RPM  +  Mu+Mqq  +  Maa+Mad  +  Mg  8e 
y  y  ® 


(B-3) 


Taking  the  Laplace  transform  of  1,  2,  and  3  and  assembling  in  matrix  no¬ 
tation  yields  (see  Reference  6)  for  a  single  control  input 


s  -  Xu  -(sXq  +  Xq) 

geos  ro-sXq 

u  (s) 

Xg8(s) 

—  Z  y  s(  Uq  *"  Z  q  )  —  Z  q 

g  sin  r0-s(U0+Zq) 

a  (s) 

s 

Zg8(s) 

(B-4) 

-My  -tsM,j+Ma) 

s(s-Mq) 

9  (s) 

Mg8(s) 

where  s  is  the  Laplacian  operator  and  6(s),  etc 

unit  impulse  forcing  function  such  as  X^  6  (s),  T 

XSon  6SB(S)’  etC-  6 

JO 

. ,  symbolizes  any 
^  cos  z,  6  ( s ) ,  or 

The  characteristic  equation  of  motion  is  the  determinate  solution 
of  the  matrix. 


s-Xu 

—  s  Xq  —  Xq 

geos  T0-sXq 

A* 

-Zu 

sUq-sZq-Zq 

gsinr0-sU0-sZq 

(B-5) 

-Mu 

-*  s  M(j  —  Mq 

**-sMq 

4, 

m 


r 
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A  -  <*-Xu){(*U0-  sZfl-ZaK**-  gsinl^  ~  *U0 -sZq)l  -  sMd  -  Ma)} 

-Zu{(9cosro-,Xq)(-  SM4-Ma>-(-sXd-XaKs*-SMq)} 

-  Mu{<-«Xa-XaXgSinro-sU0  -sZq>-(  sUq  -  sZd~  ZQ)(  g  cos^-sX,,)}  (B'6) 

Exapnding, 


A  * 


(‘-Xu,{*5uo-s5z«i-*,Za-**UoMg+  s*zdMq+  sZaMq+  '“d**"!; 


♦  Ma  g  sin  T0  -  s*U0Md  -  sU0Ma  -  ,*ZqM<i  -  .ZqMa} 


a  q 
g' 


~zu  {-sMd«cosr0-MaOcosro  +  sZxqMd+  sXqMa  +  s*xd 

-  S  XdMq  +  *  Xa  -  s  Xa  Mq  } 


q  a 


A  = 


"Mu{-sXd«  si"ro+  **xduo  +  s\xd'xa«si”ro+  sXauo+  sZqx 
-tU0gcosr0+  **XqU0+  *Zdgcosro-  s*ZdXq  +  Zagco.r0-sZaXq} 

*  Uo'  *  za~  *  za  “  *  ^o**q  +  *  za**q  +  **zaMq  +  *ZMdgsinr^ 


q  *  ‘■a'"q 

+  »Mag  sinrq  -  s5U0Md-S2UoMfl  -sSZnMri  -  s*Z„M 


o  *  ”o-a  *  “o™a  *  ‘■q"'a 

..  .  _s,  „  .  .2,  „  .  2 , 


qa 


"  *  xuuo  +  *  zdxu  +  *  zaX0  *  s  xuuoMq  ~  *2zaxuMq  ~  *zaxu  Mq 
~*xuMdOsinr0-xuMa«sinIi+  **xuuoMd+  ,xuuoMa +  **zqxuMd 
+  *ZqX0Ma+s2uMdflCOS  ro+  ZoMaflC0*Ii  -  **ZuXqMd 
-*zuxq“a-  s*zuxd'*'  s*ZuXdMq  ~  •2Zuxa  +  sZuXaMq 

+  sXdMugsinr0-s*XdU0Mu  -,*ZqXdMu  ♦  XaMug  sin  T0  -  sXaU0Mu 

~*ZqXaMu+  sU0MugcosI^-s*XqU0Mu-  sZdMqgcosr  ♦  **ZdXqMu 


-ZaMugCosro  +  sZaXqMq 


(B-7) 


(B-8) 
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This  simplified  to: 

A  *  As4+Bs3  +  Cs*  +  Ds  +  E  (B-9) 

when 

A  =  Uq-Zq  (B-10) 

B  =  —  Z  a  —  Uq  Mq  +  Z  q  Mq  —  Uo  Mq  —  Zq  Mg  —  Xu  Uq  +  Zg  Xu  —  Zu  X(j  (B-ll) 

C  Zg  Mq  +  Mg  g  sin  Ig  ~  Zq  M  g  +  ZgXy  +  Xy  Ug  Mq  —  Z g  Xy  Mq 
+  Xu  Ug  Mg  +  ZqXyMg  —  Ug  Mg  —  Zy  Xq  Mg  —  ZuXg 

Xg  UgMu  —  Zq  XgMy— XqUgMu  +  Zg  Xq  M  u  +  Z  y  Xg  Mq 
D  =  Magsin  r0-ZaXuMq-XuMggsin  T0  +  Xu  U0  M^,  +  Zq  Xu  Ma  (B-12) 

+  Zy  Mg  g  cos  Tg- ZyXqMg  +  ZyXgMq  +  Xg  My  g  sin  T0 
'  X  g  U0  Mu-  Zq  Xg  My  f  Ug  M  y  g  cos  I"g  Zg  My  g  cos  I”g  t  Zg  Xq  My  (B-13) 
E=  -Xu  Mag  sin  ro  +  ZyMgg  cos  ro  +  XgMug  sin  Tg-Zg  My  g  cos  Tg  (B-14) 


Note  that  in  Section  I I - 1  and  the  computer  printouts,  A  and  the 
longitudinal  numerator  polynomials  of  this  appendix  have  been  divided 
by  UQ.  That  gives  a  consistent  set  of  transfer  functions  for  which 
the  leading  coefficient  A  of  A  Is  1-Z^  (or,  when  is  zero,  just  1). 
But  the  printout  gives  the  transfer  function  of  normal  velocity  (w) 
rather  than  angle  of  attack  (a  =  w/UQ)  per  control  deflection;  so  the 
w/6  numerator  printed  out  is  the  a/6  numerator  of  this  appendix. 
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NUM  = 


From  the  matrix  (Equation  B-4),  three  basic  transfer  functions  can 
be  derived 


u|s) 


xs 

zs 

Mr 


“IsXfl  +  Xn) 


s(U0-Z«j)-Za 
—  (s  M~  +  Ma ) 


q  cos  Tq  —  sXq 
q  sin  r0-s(U0  +  Zq) 
s(s-Mq) 


8e(s) 

The  numerator  is  expanded  as  follows: 


(B-15) 


5  {[s(U0-Za)-Za]  [sIs-MqlJ  +  fqsinro-stUo+ZqlJfsMa  +  Ma]} 
zg{“[sXa+xa]  [s's-Mq^  +  tgcosFo-sXqJfsMa  +  Ma]] 

Ms{[sXa  +  Xa]  [gsinro“s,uo+Zq)]  +  [gcosro-sXq][s(U0-Z)j)-Za]}  _ 

Expanding, 

NUM  5  Xs{,sUo'  tZQ  +  +  M^  )} 

-Zg{(-sxd-Xa  Xs*-sm9)  ♦(  qcosI^-  sXqK*Md+  Ma)} 

-MgfjsXq*  XaXg  *'nro-*U0-sZq)  +  (flco*i;-sXqX«U#-«Z4-Za  )}  (B-17) 

NUM  *  *  8  {  ‘“V  **U0Mq  ~  •'  Zd  +  **Z(iMq  -  «*  Za  ♦  «ZaMq+  .M^gsini; 

♦  MagSi„r0  -  ,2U0M(i  -  ,U0Ma  -t*ZqM(i  -  sZqMa  } 

-Z8{-*‘V  s*XdMq",,Xa+*xaM,  +  *MdflC0*r0+  “a«co*ro 
~  $  xq  Mj  -  S  Xq  Mfl  | 

-Mg{Sxdg,i„r-s*x<.Uo-**Zqxd  ♦  xa  0*i"r  ~*XaU  -  *ZqXQ 
«-*U0gcosi;-*Z(igcosro-Zagcoti;-sIXqU0+  **  2dXq  +  *Zo  Xq  } 
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NUM  *  .*XjU0-  .*X8  .Z,XgMq 

♦  •xS**d°*inIo  +  x8Ma°*inro‘*,X8UoMd"*X8UoMa+  **zqxSMd 

*  •z,v.t‘3zsxi-‘VdM,t,,z8V‘z8x«M,-‘wcMi; 

-  ZsMa  ,  co. r  ♦  «*  Z8  xq  Md  ♦  . Z8  Xg  Mc-  ,X6  MS  9 .in  ro  ♦  s*  Xd  U0 M  8 

+  •tz,xdMS-  xaM8 ,sinIo+ *XaUo**8  +  *Zq  xo“S" ,UoM8«C0,r« 

+  *ZdM8flCO*ro  *  ZaM8,eo,Ii  +  •%u.M8_**ZdX«l“8-  *ZoxqMS  (B-19) 

This  simplifies  to: 


NUM  *  A.**  B»*  ♦  C.  ♦  D 

(B-20) 

when 

> 

C 

II 

x8°o-  zdx8+  z8xd 

(B-21 ) 

Bu  1 

-XSW  ZdX8Mq-ZaX8-X8UoMd-ZqXSMd"Z8XdMq+  z8  xa 

+  Z8XqMd+  XdU0M8+  ZqXd*V  XqUoVZaXqM8 

(B-22) 

Cu  1 

zax8Mq+  x8Mdfl  x8uoMa“  Zq  x8Ma~  Z8X«V  z8Md«  co,ro*  Z8x<,Ma 

-X^Mgg.ini;  +  XaUqM8+  Z^g-  ^MggcosIV  ZqMggcosi; -Z^Mg 

(B-23) 

Du  1 

Xg Ma  g  «n r0-  ZgM^j  co.  £  -  X^jg  .in  ZQ Mg0  co.  T , 

(B-24) 

The  transfer  functions  for  a(s)/<Se(s)  is  derived  in  a  similar  manner. 


a  (.) 
8,U> 


.  -x„ 

xq 

g  c«»r0  -  *rq 

“Zu 

Z8 

g.inlj,-  s(U0  +  Zq) 

-Mu 

M8 

.  (  s  -  Mq ) 

(B-25) 
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NUM  s  < *  - XU* {  zs(  *  *  *  •  ~  "jl  g*>"r0-«(u0+  zq  )]} 

♦Zt,{M8(0C°,ro-.Xq)  -  X8[»(.  -  Mq  )]} 

“  Mu  {  X8[,*inIl-*,U0+  Zq>]_  Z8l  9  co*ro  ~*xq)}  ( B-26 ) 

NUM  C  <s-Xu){.*Z8-sZSMq-  Msg.ini;*  SU0M8+  sZqMg} 

♦  zu  {  “8«  co*ro"  *XqMS-  **X8  +  sX8Mq} 

-  Mu{x8,,inr0-,X8U0-sZqX8-  Z8gcosro  +  SZ8Xq}  (B'27) 

NUM  *  *’z8-  s*ZgMq-  *M8g*iBro+  s*UoMS+  s*ZqMg- *2  Zg  Xu  +  *ZgXuMq 

♦  XuMSfl  Io“  * XuUoM8_  *Zq  XuM8+  ZuM8sco#ro-*ZuxqM8-**ZuX8 

+  .ZuX8Mq-  XjM(g.#r#t  .x8U0M0+.ZqX8Mu*  Z^gco*^  -  *ZgXq  Mu  (B-28) 


This  simplifies  to: 

NUM  =  AQ**  +  Bas*  +  Cas  +  Da  (B-29) 


when 


Ba  *  _ZSMq+  Uom8  +  zqM8-Z8Xu-ZuX8 

Ca  =  -MSgsinr0  +Z8XuMq-XuU0Ms-  ZqXuM8-ZuXqMg 

+  ZuX8Mq+  X8UoMu+  ZqXSMu“  Z8XqMu 
°a  1  xuM8flSinIo  +  zum8s  cos  ^o"  xSMu8  sinIo  +  z8  Mus  cos  ^ 


(B-30) 

(B-31) 

(B-32) 

(B-33) 


It  should  be  pointed  out  here  that  the  angle  of  attack  transfer  function 
differs  from  the  vertical  velocity  transfer  function  by  only  a  gain  of  UQ. 


46 


AFFDL-TR- 78-203 


For  the  0  (s)/Se(s)  transfer  function 


-(*x .  ♦  xi 
a  a 


*<  U  -  Z  . )  -  Z 
o  a  a 


-{  *M  -  +  M  ) 
a  a 


Vs'  a  (B-34) 

NUM  «  X8{-Z„{-sM6-Ma)  +MU[,(  Uo-Z^I-Zq]} 

♦  zs(M«  1  *xd  +  x«>  +  (•-XttM«Md  +  Ma>} 

+  Mg{(« -xu)[s(u0-  zd>  -zQ]  - zu  t*xd  +  xa)}  (B-35) 

NUM  *  ZuMa+  SU0Mu-*ZdMu-  ZaMu] 

+  Zg^.XdMuf  XqMu+  «\  +  sMa-*XuMd-XuMa] 

♦"8[»auo-*%-*V*V'o+,2dx»  +  zflxu  -»x(.zu-xazu)  (B_36) 

NUM  *+tZuXgMd+  ZuXgMa+  .XgU0Mu-*ZdXgMu-ZdXgMu+  .ZgXdMu 
♦z8*aMu+  ** z8 Ma  +  z8Ma-sZ8\iM<r  z8xuMa  +  **uoMS 

-**ZdMg-sZaMg-sX0U0Mg+  sZdXuMg^  ZaXuMg- »ZuXdMg-  ZuXaMg  (B_3? j 


(B-36) 


This  simplifies  to 


NUM  =  A0S‘  +  B_S  +  C_ 
c r  u  u 


(B-38) 


A0  =+Z8Md  *  UoMS  "  ZdMi  (B-39) 

80  =+ZuXgMd+  XgU0M0-  ZdXgMu+  ZgXdMu  +  ZgMa-ZgXuMd 

"  zaM8~XuUoM8+  zdxu  m8"  Zu  xdMS  (B'40) 

c0  *  +  ZuXgMa  -  ZflXg  ZgXaMu-  ZgXuMa+  ZaXuMg  -ZuXaMg  (B_41  ) 

Again,  note  that  in  the  body  of  this  report  and  the  computer  printout 
the  polynomials  of  this  appendix  have  been  divided  by  UQ. 
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Coupling  Numerators 

Coupling  numerators  were  devised  by  McRuer,  Ashkenas,  and  Pass 
to  aid  in  analysis  and  synthesis  of  multiloop  control  systems.  The 
method  is  detailed  in  Reference  7,  Section  3-5,  with  longitudinal 
applications  given  in  Sections  5-10. 


Consider,  for  example,  regulation  of  pitch  attitude  and  airspeed 
with  elevator,  altitude  rate  with  thrust.  A  simplified  representation 
of  elevator  control  is,  with  a-.'s  representing  polynomials  in  s, 

*  J 


Qll  °I2  °I3 

0 

M 

X8e  1 

x8t 

°2I  °22  °23 

0 

a 

. 

z8e 

(8e;— Yg0-Yuu)  + 

z8t 

°3I  °32  °33 

0 

9 

M8e 

m8t 

°4I  °42  °43 

1 

l‘J 

0  J 

0 

(B-42) 


where  6  is  the  command  elevator  deflection,  say  Y  u  Then 

u  c. 


o,|  +  YuXSe 

°l  2 

a  13 

+  Y0 

x8e 

YhX8T 

M 

X8e  1 

°2l+Yu  ZSe 

°22 

a23 

+  Ye 

Z8e 

Yh  z8t 

a 

zs. 

°3l+YuM8e 

°32 

°33 

+  Ya 

M8e 

Yh  m8t 

9 

“8e 

a4  1 

°42 

a43 

l 

1SJ 

°  I 

The  characteristic  determinant,  A^,  and  the  transfer-function  numerator 
determinants  as  well,  can  be  expanded  in  such  a  way  as  to  retain 
explicitly  the  vehicle-alone  characteristics,  which  is  a  powerful 
advantage.  Also,  the  resulting  expressions  can  be  made  amenable  to  the 
conventional  servo-analysis  techniques.  There  can  also  be  coupling  effects 
between  gust  inputs  and  control  inputs,  and  among  more  than  two  inputs, 
control,  or  disturbance,  so  that  the  possible  variations  are  quite 
numerous.  However,  the  coupling  numerators  are  always  easily  computed 
and  factored...,  generally  by  being  simpler  and  of  lower  order  than  A(s). 


48 


1 


AFFDL-TR-78-203 

xi  xixh 

Define  a  notation  N .  ,  N.  "  to  indicate  determinants  formed 
j  j  a 

from  the  characteristic  determinant  A  of  the  unaugmented  aircraft  in  the 
manner  of  Cramer's  rule  (Reference  6).  The  column  of  coefficients  of  x- 
is  replaced  by  the  column  of  coefficients  of  6. ,  and  the  xk  column  is  re¬ 
placed  by  the  6£  column.  For  example,  the  6  li  6T  coupling  numerator 


all 

°I2 

XSe 

XST 

°2I 

°22 

ZSe 

z8t 

= 

(°.i 

°42  "  °I2  °4l)  (2ge 

°3I 

a32 

M8e 

m8t 

M 

°2I  °42  "  °22  °4l)( 

°4. 

°42 

0 

0 

+ 

(°3I  °42  “  a32  °4|)  ( 

SeST 


|  "4,  “42  v  ^  |  +  (o31  o42  -  o32  o4t)  {  zSt  -  z^  xSt  j 

The  augmented  aircraft  denominator  then  can  be  expressed 

a  *  ♦  v„.  ■£  +  \  n^8t(B'45) 

Note  that  s  NgeSeSr  *  °  since  in  every  case  two  identical 

columns  make  a  determinant  zero. 


Similarly,  the  closed-loop  transfer-function  numerators  can  be 
expressed 


XSe 

°I2 

al3 

+  Y0 

X 

09 

a 

YHX8t 

Nuc  =  Yu 

Z8e 

°22 

°23 

+  Y0 

ZSe 

yhz8t 

M8e 

°32 

°33 

+  Ye 

Ms, 

y*M8t 

0 

°42 

°43 

i 

=  Yu 

K 

+  Y*  N 

'SeSr) 

a„  ♦ 

YuX8e 

X8e 

°.3  +  Y 

N^=  Yu 

a2l  ♦ 

YuZ8e 

Z8e 

°»  4-  Y^Z; 

a3l  + 

Y”M8e 

M8e 

a33  + 

a4l 

0 

°43 

VST 

Y*z8t 

y*m8t 


(B-46) 


(B-47) 


(B-48) 
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Nu°  *  Yu 


(» 


a 

8e 


+  Yk-  N 


at i  \ 
SeST  / 


(B-49) 


,e  . 


ull  T 

32.+  Yu 


33l 


34| 


-  Y“  (< 


%  =  Y„ 


□  „  T  lU 

32l  +  Yu 
33l  YU 
°4I 


X8e 

al2 

X8e  Y«X8t 

Z8e 

°22 

z8e  y*z8t 

(B-50) 

MSe 

°32 

M8e  Y^8T 

°42 

0  1 

KH 

oeST/ 

(B-51 ) 

X8e 

a12 

a'3  +  Y0  XSe 

XSe 

Z8e 

°22 

°23  +  Y0  Z8e 

Z8e 

(B-52) 

M8e 

°32 

°33+Y0  MSe 

M8e 

°42 

°43 

0 

-  v  Nh  ( Shts)  -  N|Jc  ^ 

U  he  \oc(s)  -  Acl  / 


(B-53) 


In  these  equations  the  fourth-degree-of-freedom,  h,  is  a 
linear  combination  of  the  other  three.  From  Equation  B-44  it  is 
apparent  now  that,  using  functional  notation  to  represent  quantities 
derived  from  only  the  three  independent  equations  of  motion  in  u,  a,  6, 

(u,a,0)  +  o4|  N8^gT  (  u  •  a  >  ®  )  (B-54) 

Note  the  rules  that  follow  from  the  properties  of  determinants: 


0K 

ShT  =  °42  8«8t 


XlXK 

n8  *  ■  0 

II 

XiXK 


Vt 

x.x 


X,Xk  XKX. 

Vj =  %8i 


mX1XK  .  I  /  Xl  _  *1 


(B-55) 

(B-56) 

(B— 57 ) 


3\°l  u  '°1  "l  . I 

Feedback  of  bank  angle  and  roll  rate  to  aileron,  yaw  rate,  and  (crossfeed  of) 
aileron  deflection  to  rudder  results  in  (if  p  =  4>) : 
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+  (v  +  «»  +  «-  \  a 

«22  +  («p>  +  V^So  °»  +  K'LSr  * 

°M  +  (Kp!  +  iN^  o3J  +  Kr  Njf  1  , 


(B-58) 


Y8o+K8oY8rl  |YSr 
=  L8o+  K8oL8r  S°c+  LSr  8rc 
\N8r+  KSoN8r  \N8r 

from  which  lateral-directional  closed-loop  transfer  functions  can  be  ex¬ 
pressed  in  terms  of  coupling  numerators  formed  solely  from  feedback/cross¬ 
feed  gains  and  the  matrix  equations  of  motion  of  the  unaugmented  vehicle. 
The  closed-loop  denominator  is 

ACL  =  A  +  (Kps  +  K^)Ngo  +  Kr  +  (Kps  +  K^)KrN^8r  (B-59) 
For  aileron  control  inputs 


<  =  Ns»+  “SoV  +  K'NsIsr+  KS„(KPs  +K*)Ns,to 

<p  $>  <f>r 

N8qc  =  NSo*  K8oN8r  *  KrN8o8r 


^  (B-60) 


(B-61) 


N8oc  =  N8o+  K8aNSr+  K8a^KpS  +  "*)  *808, 


while  for  rudder  control  inputs 


/3  /3  ba, 

N*  =  N*  +  (Kps  +  Ki)  N 

Src  8r  V  p  9'  8r8a 


(B-62) 


(B-63) 


8rc  ""  N8r 


(B-64) 


<  =  N*  +  (  Kds  +  K  . )  N t' 

Src  Sr  v  p  8o8r 


(B-65) 
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Note  that  the  properties  of  determinants  eliminate  a  number  of  the 
coupling  numerators. 

Other  multi  loop  control  problems  may  be  worked  by  analogy  to  these 
examples.  For  more  detail  see  Reference  8,  which  in  Section  3-5  goes  on 
to  show  the  use  of  this  concept  in  multiloop  analysis. 
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APPENDIX  C 

LATERAL-DIRECTIONAL  EQUATIONS 

Option  1 

The  programmed  lateral -directional  equations  of  motion  are  in 
the  stability  axis  system,  i.e.,  with  ctx>  the  angle  of  attack  of  the  x 
output  axis,  equal  to  zero.  However,  it  is  a  simple  matter  to  compen¬ 
sate  for  nonzero  For  body  axes  we  have  from  pp.  256-258  of 

Reference  8 

[  («  "  Yy)s  -  Yv]#  -  [(yp  ♦  a*)s  +  cos(ro  ♦  (*„)]•£  +[(>-;jr)s 

where  6  =  v/UQ  and  ax  =  WQ/UQ.  Note  the  presence  of  p/s  rather  than 

4>  and  r/s  rather  than  ip .  These  differences  indicate  a  minor  flaw  in 

the  notation.  In  the  output,  "bank  angle"  is  really  the  integral  of  roll 
rate.  The  two  terms  are  identical  when  0Q  is  zero,  differing  slightly 
for  small  eQ. 

For  the  rolling  and  yawing  moment  equations  the  only  change  needed 
to  accommodate  nonzero  oij,  oi^,  and  ax  is  to  transform  the  stability 
derivatives,  moments  and  product  of  inertia  into  the  output  axis 
system  (Appendix  A).  The  program  does  this  for  dimensional  inertias  and 
non-dimensiona i  stability  derivatives,  for  all  three  lateral -directional 
eauations.  It  is  seen  that  in  the  side  force  equation,  additional 
factors  must  be  taken  into  account.  The  program  substitutes 

M,  •  t  ♦  °»  ‘c-2> 

and 
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As  shown  for  example  in  Reference  2,  recasting  the  stability  derivatives 
in  this  form  removes  the  explicit  appearance  of  IX2  in  the  equations. 
This  yields: 


(C-5) 
(C-6) 

Taking  the  Laplace  transforms  of  Equation  C-l ,  C-5,  and  C-6  and 
assembling  the  result  into  a  matrix  yields* 


p  *  L>  >  Ltv  ♦  t-'p  p  ♦  L*,r  +  8r 

i  ■  N'v  v  +  ti!  v  ♦  N’p  +  m;  r  +  N'  8A  +  N'  Br 


~*L/3  ’  Lp  *  "  *L  p 


— 

“ 

/9(* ) 

</>(*) 

»*  - 

<M*> 

_  m j 

S-s,s, 


L'gB  (s) 


Ng  B  (* ) 


(C-7) 


C., 

CI2  CI3 

£(s) 

\*>' 

C2. 

C22  C23 

4>(s) 

= 

LS8l‘> 

C3I 

C32  C33 

*(*) 

N'S(.) 

Equation  C-l  was  divided  by  U  . 


Let 

and 


*1  1  Yl  /uo 
g*  =g»lnl^/u0 

gc  =gco*i;/U0  , 


*"  -  Strictly  (Reference  2)  the  variable  <j>  should  be  p/s  and  ip  should  be 
r/s  -  with  \p  =  ^  sin  TQ  and  r  =  i>  cos  To  for  lateral-directional 

motion  only.  The  difference  should  be  minor  for  small  flight  path 
inclination. 
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and  solve  the  characteristic  equation  of  motion 


A  3 


•  -*vv»  -  *v»« 


~'N0~N0 


2  i 


-»nL 


~*L. 


»*  ”  »n' 


.  (.  -  .V.  -V¥  )[( K  .*  -  ) -<-i  ,u;  „  _  ,N. ,] 

-Lp  )[-(-*Np  X  *  -  sYf  -  g«  )-*■(-*  vp  -gc  )(  **- ,Nr‘  )J 


(C-8) 


(C-9) 


A  *  u-.r,V[,*.,»N;  ,«N;L*r  ] 

_<*L4  +  L/S^'  **Np  +  ,,9»np*  ,np»«  ♦  »* V  «*Vr  ♦  **«e  -tNjgc] 

*(’V  ‘L>  +  ' -**,  -  •*«.  ~  ‘V  ’Vp*  •*>] 


(C-10) 


A  .“-.V  +  ♦  **Y^  Nf'  ♦  s4  Y.  L  '  -  t*Y  .  N  '  L  ' 

v  p  v  f  p 

***y4nPLt  ~  *\  +  **  Yv  **r'  +  **Yvt'p~**YvN,’Lp  +  ** Vv ^p *"r' 

•'».*,•** *  -‘w  *  ^«Ay 

"4 L-  -  L-  « *  ^  »>  -Vi*  y  ,*  •%'  >> 

V^-*"^96*  •\-»3vrN^s2N0„-,2N0L;t^rypt  *n^l> 


2 

-S  Y 


This  simplifies  to: 


A  =  Aj5  ♦  Bs4  ♦  c*3  ♦  Os2  ♦ 


Es 


(C-12) 
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where 


A  =  I  -  Yo 


B=  YyN;  ♦  Y.L'p-  Yv  -  VpL^N^-YfN^ 

C  5  Nr  Lp  “  Np  Lr  -  Yy  Nj  L'p  ♦  Y;  Np  Lj  ♦  Yy  ♦  Yy  L'p  ♦  Np‘  Lg 

♦  %  np  -  *p  Nr  ♦  l4  90  *  ?p  Lls  -;p  n4  ^ 

“V  «•  -  NgLp*  Yf  Ng'  Lp  ♦  Ng  -  Y,  Ng' 

0  *  -  YvNr'Lp  *  Yv  NpLr'  *  Np'L£  9S  "  Nr'L^«C  ~  NP  L/3  *  NP  L/3 

’  W  L(3  ~  LP  9C  "  L'  9C  N4Lp  95  "  ?P  N/3  ^ 

-  Ng  9S-  Lp  ♦  Yr  Ng  Lp 


(C-l 3) 


(C-14) 


(C- 15) 


( C  - 1 6 ) 


E  =  ♦  NpL  '  gs  ♦  Nr'  Lg  gc  -  Lr'  gc  ♦  Lp  gs 


(C-l 7) 


The  normal  form  of  the  characteristic  equation  roots  is 


A  =  As  (  s  +  -^-)(s2  +  2  C  u,DR  s+  u,d2r)  =  0  (C-18) 


For  the  Dutch  roll  mode: 


s*  +  2  CDR  “dr  5  +  "OR  *  (5|-°bR',-i%R)(S2-<rDR-i"<l0R)  <C-,9> 


Damping  ratio 


Undamped  natural  frequency 
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Undamped  period  TDR 

Damped  period  T. 

aDR 


Zir 

WDR 

Zir 

■G TT~ 


DR 


Cycles  to  half  amplitude 

C'/ZDh  T,/2Dr/T<J  DR 

Time  to  half  amplitude 

ti/2  =  -0.693I5/ol0 
1/2  DR  DR 

Cycles  to  1/10  amplitude 

C|/'°OR  °  V'»dr/T1dr 

Time  to  1/10  amplitude 

T,/,0DR  =  "  2-30259/°bR 

From  the  matrix  on  page  55,  these  basic  transfer  functions  can  be  derived: 


A 

Ys 

-  SV9C 

s  -  sYf  -  gs 

L8 

2 

S~SLP 

“sLr' 

0  (s  ) 

N8 

-  sNp 

s2-  sNr' 
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NUM 


Yg  £  (s2-  sLp  )(s2-  sNr‘  )  -  (  -  sLr'  )(  -  sN( 


:>] 


(C-21 ) 


NUM 


NUM 


-  Lg  ^(  +  s  Np'  )(  s  -  sYr  -  gs  )  ♦  (  s^-sNr'  )( -  sYp  -  gc  )j 
♦Ns  £(-  sLf'  )(  -  sYp-  gc  )  -  (  s2-  sLp'  )(  s  -  sYf  -  gs  )j 
=  ^s4-  s3N'-s3Lp  +  s2Nr'tp  -s2Np  Lr‘ j 

"  LS  [  s2np  "  Np  “  s  Np  «s  “  *  *c  +  s2  \  Nr'  +  sNr'  9C] 

+  Ns  [$2  *PLr  +  SL;  gc  -  S3  ♦  s3Yr  ♦  S2gs  ♦  s2Lp  -  s2  Y,Lp  -sLp  gs  j  (C-22) 

=  s  Yg  -  s5Y8Nr  -s^YgLp*  s^YgNrLp-  s^YgNpLr-(s^NpLg-  s^Yr  Np'Lg 
”  sNpLg  gs  —  s  Yp  Lg  —  s  Lg  gc  ♦  s  Yp  Nr  Lg  ♦  sNr  Lg  gc^  +  s  Yp  NgLr 
♦  sNgLr’gc  -  s3Ng'  +  s3Yr  Ng  +  s2Ng'gs  +  $2Ng  Lp  -  s2  Yf  Ng  Lp-  s  Ng  Lp  gs  ( C  — 23 ) 


This  simplifies  to: 


NUM  =  s4  ♦  Bg  s3  ♦  C^g  sZ  ♦  D^gS 


where 


P 


'0 


Y  N.'  -  Y  L,!  ♦  Y0  L  '  -  N  '  +  Y.  N’ 

S  '  S  P  P  S  S  ’  8 

Vr  LP  -  %  NP  LV  "  NP  l8  +  NP  <-'8  *  Lg  gc  -  Yp  Nr’  Lg 

Ns'9S  *  Vp'^N8Lp 

♦NpLg'gs  -  N/Lggc  ♦  Ng  Lr'gc  -  Ng'Lp  gs 


(C-24) 

(C-25) 

(C-26) 

(C-27) 
( C-28 ) 
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i 


*  ",Y*  ~Yv 

,  I  .  I 

',L/T  *7? 


r8 


(C-29) 


rc  *  -  r* 

/3  0 


**  -»Nr' 


HUM  *  -Yg[(-»Lr'X +*N^  +  N^  ) +(  -  »L^-L^  )(  s*- Nr’  )] 

♦  Lj[(t  ~  *Y^-Y^X  •*  — »Nf*)  —  (  *  -  *Yf  -fl*)(-sN^'-N^)] 

-  Ng[(+.L^  +  L^‘  )(  *  -  «Yr-«*)  +(-*Lr’)(*  -sYi-Yv)]  (C-30) 

NOW  ,  +Vg  [,*N^L>  .N^,9L^-.Nr*L^  *N;  L^} 

*  Lj[  **-  **Nr'-  *\  ♦  »*Y^H'r-  **Yy+-  *\N^  **N^+  sN^g 
-.*YrN^-fYrN^  -*N^g»-  N^gs] 

+  Nsl"*V  «*  “  *L/J+  *V^+  +  •*Lr*V'r-*YvL'rl  .(C-31) 

NUU  .  +'lV^;+  S‘ Vr'Lj8+  ‘‘Vr  ‘Vr  LJs 

*YvNr'Ls+ 


i  ’ _  ..  • .  • _  a. 


+  *N/9  L8_*  Y|rN/9L8'  *YfN0LS  '  *N/3L8  9*  ~  N/3L8a*  *  N8  U/3 

+*‘YrN8L4+  *n8L4«*  '  *n8l/3+  •YrN8L/3+  NS l/3 fl*  +*‘  NbLf' 


-  •*Y*N8Lr'-  *Vv  n8  Lr 


This  simplifies  to: 


NUM  «  A^**  ♦  ♦  C^*  «•  0^ 


(C-32) 


(C-33) 
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where 


YS  L/3  +  LS  '  Yv  l8 


+V/jLr~  -NrL8+  YiNr'L8'YvL8+  N^LS 

"  Yr n/S  l8*  -  N8  L/8  +  n8  l/3  +  n8  Lf  -  Yv  N8Lr‘ 

+ % *0Lr  -  YS Nr  u/3+  YV  n  ;  l8+  n0  l8  -  Yr  N0L8~  *0  LS  «• 

+  N8L/8  flS  -  n8  l/9  +YrN8L’/3  "  YvNSLr 

~n/3l8  °*  +  n8  l/39S 


(C-34) 

(C-35) 

(C-36) 

(C-37) 


(C-38) 


NUM 


MUM 


sNpK-sL^- 


L0)-(*2-*Lp,(-*N/-  -y] 


~L8 

[(  +  sYp  + 

OCX-  *^-Ng’)  +  (-sNp)( 

S  -  SYy 

-Yy  )] 

[(.-SY.- 

Y¥Ks2-sLp)  +  (-sLg- 

L/3 

K+  SYp 

+  gc)] 

A  i 

V8l( 

sNpL/3* 

-  s 

*N4  Lp 

~*Nk 

< 

I 

+  L8 

[  *'%"0 

+  ,YP  Np  +  *N0  OC  +  N 

•$- 

*‘*np' 

-**Y* 

np‘ 

♦  N  ’[ 
8l 

•V'V,;-»V  *yv 

s*Y  L 

p  P 

~*L0 

QC- 

*VP  L0~  L>90C 

(C-39) 


)  (C-40) 
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NUM  *  ‘V/3lp 

****ph£ l8+  *^p  n/8L8+  *N/8L8°c +N/3L8,c  +**npl8-  *YvNPLj 

♦  .*Nj-  v  **  vw  n8lp~  **  yv  Ng +  *\  nsl;-  -*  vw 

-  «  N  '  L J;  ttC  -  *Y  N  't  *  -  M  ‘  L '  QC 

8/8*  p  8  0  8  /»  (C-41 ) 


This  simplifies  to 


NUM  =  Ar  s3  +  Br  s2  +  Cr  S  +  Dr 

(C-42) 

Af  * 

V}!?*  N8  "  Y*  N8 

(C-43) 

Br  * 

Vpl>+  V£' V/3l‘p+ V/3l8+  npl8"y»npl8 

~n8lp  *  YvN8Lp-Yy  n8  "  yp  n8  l'$ 

(C-44) 

cr  * 

V>V  V/3  l> sYp N/3  l8  +n/3L's9C  ~y* 

+  Y*  SLp  '  SL/ifle' V*iLi 

(C-45) 

°r  * 

+  N^flC  -NjL^OC 

(C-46) 

V“d 

The  u^/u^  ratio  is  the  undamped  natural  frequency  of  the  roll  angle  per 
delta  aileron  numerator  divided  by  that  of  the  Dutch  roll.  The  4>(s)/6A(s ) 
numerator  has  the  form 

c**  ♦  *  o  (C-47) 


which  has  the  usual  form  of  solution 


<  •  ♦  x  •  ♦  2 


(C-48) 
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<C/3  or  <|>/v 

The  parameter  <j>/B  is  the  ratio  of  roll  to  sideslip  in  the  Dutch 
roll  mode.  As  a  modal  parameter,  it  is  independent  of  the  form  or  kind 
of  input.  The  programmed  expression  may  be  developed  by  forming  the 
ratio  of  transfer-function  numerators  for  a  pure  yawing  moment  input: 


s(  l-Yw)-Yv, 


-sirL/3 

-sNirN/3 


o 

0 

N 


st l_  rr )  sin  T0 
uo  uo 


-  SL, 


2 

s  — sNr 


SS  ^DRaJDR+i  WDR 


DR 


DR0 
0 

N 


"  (  s  TT  +  TT  cos  *0  >  *  <  I -tt-  4-  sin  E 


Uo 


s  -  Lp  s 


-Np  s 


U0  '  u0 

-5L'r 


2 

s  -  sN. 


(C-49) 


S=  ^DRa,DR+ja;DR 


from  which 


[L£(5r,,+l:r,l‘Y*( 

s2+ 

,(  u0  " 1 1  ■*+  l*/3u0s,n  ^0_  L-r  Yv. 

s+Lg^sinfo 

IV  1 L+  S 

[Lru0  +  U 

—  sin  rjj  —  l!  p(  —  1 ) 
0  uo  J 

s2 +  <  ^ r cos  ro- lip sin ro )  s 

(C-50) 


s  = 


_CDRwDR+iwDR  V^^-R 

To  evaluate  <t>(s)/^sj  for  the  Dutch  roll  mode  let  s  =  aQR  +  ja)d0R 
This  results  in  an  equation  of  the  form: 


£<s)  o'd'H^d 


(C-51 ) 
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Now  <|>/e  as  defined  above  Is  a  complex  vector  {or  phasor)  in  s.  For  the 
Dutch  roll , 


*  *  -£dRwDR  +  wDR  yr-C^J  (C-52) 


*  *  -C"n  +  Wn  i 


"nd  1  <"n  V>“C2 

This  is  substituted  into  Equation  C-50,  thus  the  magnitude  of  the 
phasor  is 


iti 

101  * 


aD  +  WD 


1 

2 


(C-53) 


(C-54) 


(C-55) 


1^1  57.2958  1^1  deg  p 

-  -  where  c r  * 


u0 «r)i  1/9 1  ft/sec  .0025769 


(C-56) 


Sideslip  to  Control  Deflection: 


NUM 


/3  (s) 


S„(s) 


This  is  of  the  form: 

/9is) 


JQ_ 

J0 


NUM 


CI2 

CI3 

C22 

c23 

C32 

C33 

,  s  (s  + 

'  1 

(C-57) 


^■•'V  +  V  +V+VVu+£''* +^'l(s+^ 


> 


3 

(C-58) 


When  Y,  is  zero,  the  order  of  this  numerator  is  reduced  by  one. 
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Roll  Angle  to  Control  Deflection 


NUM 


<j)  (s) 
SQ(S) 


YS0 

cll 

u0 

cl3 

c2l 

C23 

C3i 

NSa 

C33 

(C-59) 


This  is  of  the  form 

NUM  T^T)  ‘  V’+V'  +  V  +  V  V!+^Hs'+2VV+a'*'  (c-60> 


The  above  equation  normally  factors  into  a  real  root  and  a  complex  pair 
of  roots.  As  already  noted,  the  real  root  is  zero  when  rQ  is  zero. 

The  damping  ratio,  and  natural  frequency,  to,.,  of  the  complex 

<p  $ 

pair  are  calculated  in  the  same  manner  as  the  comparable  Dutch  roll 
parameters  in  Equation  C-19.  Strictly  interpreted,  this  is  the  numerator 
of  (1/s)  p(s)/<j,(s)  rather  than  <J>(s)/6(s). 

d  a 

Yaw  Rate  to  Control  Deflection 


NUM sNUM 
80(s) 


4>  (s) 
S0(s) 


cll  CI2 
C2l  C22 
C3l  c32 


(C-61 ) 


This  is  of  the  form: 

NUM  =  s(Ars3  +  Brs*  +  Crs  +  Dr) 

i>Q(s) 


( C -62 ) 


sAr(s+  fils’ 
TR 


+  2£rWrs  +  w|) 


(C-63) 
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Rudder  Transfer  Function  Numerators 

The  rudder  transfer  function  numerators  are  of  the  same  form  as  the 

aileron  transfer  function  numerators  with  Y~  ,  L*  and  Nl  substituted 

0  Op  or 

for  Y.  L*  ,  and  N~  ,  although  they  may  factor  differently. 

°a  °a  °a 

Rudder  Transfer  Function  Numerators,  Option  2 

The  roll  rate  response  to  a  unit  step  control  input  is  shown  to  be  of 
the  form 


pit) 


UNIT 

STEP 


Kp+Kp 


e 


rR  +K 


-4-t 

ps  s 


+  he; 


'DR 


e 


-c 


DRa,DRtcos(u) 


dDRt  +  ^f 


(C-64) 


The  corresponding  sideslip  response  is 


/3(t) 


_ L  |  — L  t 

*Kfl+K„  g  T„t+K r>  9  T-  + 
UNIT  P  PR  R  Pe  S 
STEP 


V* 


DR 


6>"^DRajDR+coslaJH  t  +  \1/) 
dDR  T/3 


(C-65) 


For  an  aileron  control  input  the  parameters  of  these  equations,  as 
well  as  time  histories  of  roll  rate,  bank  angle  and  sidelsip  angle, 
will  be  printed: 


Kp 

KP 

K/3 

KB 

% 

KPR 

X 

KBR 

Kp$ 

KPS 

K/9s 

KBS 

KorI 

MKPPDR 

K0dr| 

MKBPDR 

*P 

PSIP 

PSIB 
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If  1/t<j  is  zero,  a  message  to  that  effect  will  be  printed  instead, 
since  in  that  case  the  time  history  equation  has  a  slightly  different 


Some  parameters  indicative  of  the  amount  of  Dutch  roll  response 
in  abrupt  aileron  rolling  maneuvers  are  given.  For  a  step  control  input: 


<UcA 


p  +  p  -  2p 

— - 5 - *_  ,  C  >0.2 

p  +  p  +2p  DR 
l  3  2 


ov  ,,  -  P, 

*  +P2 


(C-66) 


C  <  0.2 

DR 


where  p-j  is  the  first  peak,  p^  is  the  first  minimum  following  p^ , 
and  p3  is  the  next  peak  value  of  roll  rate.  In  the  same  way  4>osc/<!>av 
is  given  for  an  impulse  control  input;  it  should  be  identical  to  the 


Posc/Pav  for  a  step  lnPut-  Also  given  is: 


Kd/K„=  *p 


KD/KSS 


(C-67) 


The  parameter  AS  ,  as  defined  in  MIL-F-8785B,  "Flying  Qualities 
of  Piloted  Airplanes,"  is  a  measure  of  the  amount  of  sideslip  in  the 
response  to  a  step  roll  control  input.  Over  a  time  interval  of  half 
the  Dutch  roll  period  or  two  seconds,  whichever  is  longer,  A6max  is 
the  magnitude  of  the  difference  between  the  largest  positive  and  the 
largest  negative  values  of  sideslip  angle: 

DBMAX 

For  an  aileron  impulse  the  phase  of  the  sideslip  response  in  the 
Dutch  roll  mode  is 

PSIBP 


The  phase  angle  between  the  <j>  and'8  Dutch  roll  responses  is  a 
model  parameter,  independent  of  the  input: 


4  p/P 


ANGLE  P/B 
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This  is  the  angle  in  the  complex  representation: 

e)4P/fc  (C-68) 

DR 

Rudder  Transfer  Function  Numerators,  Option  3 

With  this  option,  the  transfer  function  numerator  of  side  acceleration 
at  a  distance  from  the  CG  is  given.  This  numerator  is  of  fifth  order: 


°y(s)  . 


NUM  ~§~*(~s)  =  A°y  s  +  Bays4  +  Cays3  +  Doys2  ♦  Eays  +  ^y  (c_69) 


Account  is  taken  only  of  longitudinal  displacement  from  the  CG: 


o'  =  ov  +  £,r 
y  yCG  * 


(C-70) 


Both 


the  sensed  a’  (the  sum  of  inertial  and  gravitational  accelerations) 


are  the  inertial  a^  are  given. 


Option  2  Equations 


rosc 


rav 

Usi 


ing  equations  C-12  and  C-60,  8(s)  =  J-fi-  ,  and  o  =  s 

CTCD  5  K  '  1 


STEP 
3 


mo  »(V  +  *  V+D») 


(C-71) 


INSTEP  s2(  As4  Bs3  +  Cs2  +  Ds  +  e) 


|8a 


P(5)  r  KP  ,  PR  ,  _ PS_+_ 


Pi 


VP2 


'STEP 


S+T  S+^s  s  °"DR'J,^DR  S_arDR +  iwdDR 


•  (C-72 ) 


*  -  Since  p  =  <f>  -  $  sin  rQ,  this  implies  a  near-level  flight  path. 
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} 


Taking  the  inverse  Laplace  transform, 


-t 


STEP 


p(,)luNIT  =  KP  +  KPr  *  Tr  +  Kps6  +  KpDR  *  cos  (wd  +  * '  ) 


-C  Wrvr,’ 

^DR  DR 


P‘ 

( C- 73) 


Where 


Kp  = 


A<£S3  +  B<£s2  +  C<f>s  +  D<f> 
As4  +  Bs3  +  Cs2  -F  Ds  E 


s=  0  = 


D <*> 


(C-74) 


-r(i4>s,+  !,ts‘  +  c4>,  +  °$) 

‘‘fe  "  t+^)(sZ  +  2CDR"DRs  +wdr) 

*  P$) 

s(s  +  fsKs2+2^DR“'ORs+luDR) 


PS 


s  =  - 


s  =  - 


(C-75) 


(C-76) 


K„  =  -r 


_  jl 

A 


(«$  *3  +  y  +  D^,) 


‘(*+-fe)(*  +  ^•Ks-°DR+i“<lDR) 


(C-77) 


S=*DR  +  J*d 


DR 


°p  +  >WP  . , 

NUM _ pjm - =  |KP)|eJ% 


DENOM 


DENOM 


K  I  * 


+  w: 


NUM 


NUM 


crZ  +  w* 

PDENOM  PDENOM 


I 

T 


(C-78) 

(C-79) 


I 
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N°w  Posc/Pav  may  be  found  by  setting  the  derivative  of  Equation  C-73 
equal  to  zero  and  solving  for  the  required  peak  values. 

The  values  used  to  compute  PQC;c/Pav  are  also  used  to  compute  the  peak 
ratio,  p2/p1 . 


^osc/^ov  ond 

<?>(»)  _  A$  s*  +  +  c</>s  + 

IMPULSE  s  (As  *  B*3  +  c’2  +  Ds  +  E  ) 


Comparing  Equations  C-71  and  C-82  it  becomes  obvious  that  they  are 
identical.  Thus, 

^*08  C  _  PQ3C 

<&  RjV 

^Qv  UNIT  UNIT 

IMPULSE  STEP 

Equation  C-73  may  be  integrated  using  initial  conditions: 


<£(»)  =  0  at  t  =  0 

'UNIT 
STEP 
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This  results  in 


<#>(»)! 

•unit 

STEP 


tr(‘-*  r"  )  +  Vs('-‘  S) 


K„  t  +  K 


+  Kp  T  , 

vs  b 


DR  f 

TTZTTV 


■^dr^dr’ 


(«dr"dr)  +  ("<■„) 

lnKR’  +  +p)]  +  «DR“OR“*+p 

%} 


w__  cos  +•  \1/  \ 
L  ’DR  DR  \  dDR  Tp/ 


(C-83) 


+  (jj.  sin 
dDR 


-  u),  sin 
dDR  ’P 


Equation  C-83  is  solved  for  the  input  times  tft,  tg  and  tc  to  give 
the  bank  angles  required  in  the  A£max  requirements. 

4ND  *e 


Using  equations  C-12  and  C-58: 

+  +  °g) 

s2(As4  +  Bs3  +  Cs2  ♦  Ds  +  E  ) 


Pis) 

|So| 


STEP 


Pis) 


STEP 


s  + 


s  +• 


S-°DR-,tal 


(C-84) 

(C-85 ) 


DR 


S-aDR+iW<l 


DR 
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Taking  the  inverse  Laplace  Transform  with  a  unit  step  input: 


I 


t 


I 


A(t)| 

where 


cd  ^  ^DR^DR* 

«£  VV  +  W  “fW**)  <C‘36) 


A  A*4  +  Bs3  ♦  Cs2  +  Ds  +  E 


Krt  =■ 


5=  0 


( C— 87 ) 


+ft>  •* 

+  V*  +  < is!  -  d/3) 

*  (**t) 

^2  +  2Cdr"drs  +"dr) 

S  =  '^"  ' 

(C-88) 

+  <V* 

+  V2  +  c/3s  +  °/3) 

s(s+^) 

(s'  +  2  ?dr"dr  s  +"or) 

s  =  - -  J- 

(C-89) 

V 


i(Vs  +  V*  +  c/j*  +  *3b) 


-fa  ♦*%„,) 


5  '  °OR  +  '"<1 


DR 


( C- 90 ) 


% 


NUM  ^NUM 


%  +  ]UG 

PDENOM  PDENOM 


K  le^A 

A' 


A 


cr  2  +•  <u2 

AnuM  A 


NUM 


</3  *  °/3 

^DENOM  ^DENOM 


(C-91 ) 


(C-92 ) 


DR 


=  2 


ka 


(C-93) 
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(  /*NUM  \  /  **^DENOM  \ 

%  =t°n  \~B - /',0n  N - ) 

H  PNUM  pDENOM 

I  J 

Let  t-j  =  largest  of  DR  or  2  seconds. 

2 

Compute:  j 

^CmAx)”^  MAX,MUM  /3(f)  for  t  <  t, 

^CmIn)  — ►MINIMUM  /3(t)  for  t  <  t, 

A/9max  =  |  LARGEST  POSITIVE  /3(t)  -  LARGEST  NEGATIVE  /3(t)  | 

where  the  largest  positive  and  largest  negative  B(t)  refer  to  the 

e‘s  @  W  and  W 

Using  Equations  C-12  and  C-58 

bm  MV’+V’  +  yfe) 

IHmpulse  *(a»4  +  b*5  +  c,2  +  Ds  +  e) 


(C-94) 


(C-95 ) 


(C-96 ) 


/3(s) 

[So  | 

1  'IMPULSE 


73r 


73s 


s  +- 


s  + 


rs  s-°bR-jwdDR 


5  ~  °dr  +  iwd 


(C-97) 


DR 


Taking  the  inverse  Laplace  transform  for  a  unit 


/3(f) 


UNIT 

IMPULSE 


impulse  input: 


_C  UJ  t 
SDR  DR 


cos  (<ud  t  +  d/') 
'  dDR  Ql 


(C-98) 
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°N  +  jWd  ~n~ 

J! _ _5L  -  LL  ^ 

rr  4-  i/.t  "  I  K  I  © 


L  * + '% 


(C-105) 


(~^L, )-” Hr) 


(C-106) 


kd/kss 

vKss=lKvlA 

Option  3  Equations: 


(C-107) 


Sensed  lateral  acceleration  is  the  sum  of  inertial  and  gravitational 
accelerations : 

°>  =U0/3+U0r  +(gcosro)(p/s)  +(9sinr0)(r/s)+  (C-108) 


The  program  solves  the  augmented  determinant 


*('  -Yv)_Yv-  UoP  -  20  co*  r0  s(l-  -  -5_slnro  X 


ow 

V  ■ 


-’l/3 

-  l' 

s2  +  sL'| 

P 

“iN/j 

~  "P 

~NpS 

~Uo* 

g  cos  r0 

sz  -  n; s 


-(•£  s2  +  U0s  -  g  sin  1^)  0 

(C-109) 
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for  sensed  acceleration  on  the  x  axis  at  a  distance  a x  ahead  of  the  CG 
to  obtain 

Ns  y  =  uo  *  N/  -  9  cos  r0  H*  +  (Z,  qsin  £) 

(C-110) 


The  result  is  a  fifth-order  polynomial  (for  inertial  acceleration  one  of 
the  roots  will  always  be  s  =  0): 


N*  =  Ao  s5  ♦  Bn'  s4  ♦  Ca  s3  +  4,'  S2  ♦  E  •  s  +  F  • 
O  ay  °y  ay  ^y  °y  °y 

but  even  for  sensed  acceleration  the  program  ignores 

Fo;  ■  -«*  •'»  r„  co.  r0  (l^  -  Ng  ^  )/u0 

The  fifth  (zero)  root  is  not  printed. 


(C-lll) 


(C-112) 


Coupling  Numerators: 


Coupling  numerators  are  detailed  in  Reference  7,  Sections  3-5 
and  the  lateral-directional  case  is  explained  in  Sections  6-11. 
Coupling  numerators  for  the  lateral-directional  case  follow  from  an 
analysis  similar  to  that  presented  for  the  longitudinal  case  in 
Appendix  B.  Feedback  of  bank  angle  and  roll  rate  to  aileron  and 
yaw  rate  and  (crossfeed  of)  aileron  deflection  to  rudder  results 
(if  p  =  <f))  in 


a.j+KrYg' 

ffi\ 

fV 

w\ 

q2I 

a22+(  KpS  + 

o23+Kf^ 

~ 

V 

w 

°3I 

032+(Kps+KjN‘ 

a 

°33+  KrNgr 

(V 

Vil 

V 


L8, 

\n'm 


8r 


(C-113) 
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from  which  lateral-directional  closed-loop  transfer  functions  can  be 
expressed  in  terms  of  coupling  numerators  formed  solely  from  feedback/ 
crossfeed  gains  and  the  matrix  equations  of  motion  of  the  unaugmented 
vehicle.  The  closed-loop  denominator  is 


ACL  =  A  +(KpS  +  K^)N^  ♦  K,N^  ♦  (KpS  +  K^)KrN^8r  (C-114) 


For  aileron  control  inputs 

+  K  +•  K  (K  S+K  (C_115) 

Sar  ‘  NSa  KSo  Sr  r  SoSr  K8a'KP s  V'SaSr 


d>  d>  <fa  (far 

NSac  =  NSo  +  KSaNSr  +  *r  NSaSr 


(C-116) 


V  -  nL  +  Ksa  Ns,  +  Ksc  (K»s  +  K 

c 


\  <#>r 
*)  NSaSr 


(C-117) 


while  for  rudder  control  inputs 


4  =  +  (kps +  k*)ns1 


(C-118) 


<*>  <t> 

NSrc  =  NSr 


<pr 


NS,  *  NS,  +  KS  +  «*)  NSoSr 


(C-119) 


(C-120) 


Note  that  the  properties  of  determinants  eliminate  a  number  of  the 
coupling  numerators. 


Other  multi  loop  control  problems  may  be  worked  by  analogy  to 
these  examples.  For  more  detail  see  Reference  7,  which  in  Sections  3-5 
goes  on  to  show  the  use  of  this  concept  in  multiloop  analysis. 


76 


AFFDL-TR-78-203 


APPENDIX  D 

TIME  TO  nth  AMPLITUDE 


Oscillatory  Mode 

The  governing  equation  for  an  oscillatory  mode  is 

A  =  V'CW"  ’  5in(wnl  +  ^)  (D-l ) 


The  amplitude  of  this  mode  of  motion 


A  =  Ac  e”  Cwn  * 


(D-2 ) 


so,  at  time  T  =  1 , 


A,  =  ll 


(D-3) 


and,  at  time  T  =  2, 


A2  =  A0e'C%  t2 


(D-4) 


The  ratio  of  these  amplitudes  is 


r  =  e~^n  (’2-  ’•) 


(D-5) 


Taking  the  natural  logarithm  of  both  sides 


tr\  A2/A,  -  -  (*2  *l) 


(D-6) 


For  a  particular  nth  amplitude,  in  this  case  1/2  amplitude, 

»2  ’i  -  Tn  'i/2  _£ 


(D-7) 


or 


Tl/2  S 


0.693 

Cwn 


For  time  to  double  amplitude,  the  same  equation  holds. 
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Nonoscillatory  Mode 

Consider  the  case  of  a  second  order  mode  with  one  real  root  and 
one  root  of  zero.  The  equation  has  the  form 

i  +  K,  x  =  f (t)  (D-8) 


which  is  identical  to  the  roll  mode.  Inserting  the  roll  parameters  yields 


<j>  -  Lp <j>  =  LgS(t)  (D-9) 

Let  the  forcing  function  be  a  unit  impulse  at  t  =  0  and  taking  the 
Laplace  transform 

s24>(s)-Lps</>{s)  =  L.S  (s) 

b  (D-l 0) 


or 


*(s>  .  L8  Ki  k2 

Sa(s)  s{s- Lp)  s  s-l 


The  method  of  partial  fractions  allows  solution  of  and  K2: 


(D-12) 


so 


*(s) 


(D-l 3) 


Taking  the  inverse  Laplace  transform  yields 

*(♦>  =  LgTR  (  I  - 


( D-l 4 ) 
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where 


Now 


and 


The  first 
Since  L^Tj 


so 


Letting  t 


TR  =  tL-pl 

LgrR  ( |  -  e-»i/^R)  (D_15) 


<f>  (l2)  =  LgTR  ( I  -  e  f2/rR) 


(D-16) 


problem  is  to  determine  what  xR  is  in  terms  of  amplitude, 
is  effectively  <}>(<»)  for  a  unit  impulse 

<£(t)  =  «^(00)(  l-e'r/TR)  (D-17) 


-t/r 

Tmo« 


( D- 18) 


mo* 


I  -  0.37 


0.63 


So  the  value  of  the  time  constant  yields  the  time  to  63%  of  the 
maximum  amplitude. 
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4>(  t) 

if  — - =  0.5  then 


max 


0.5  =  l-e_,/TR 


e‘t/TR  =  0.5 
tr  ii\  0.5  =  t  =  T, 


t/2  =  0.693  rR 


For  the  case  where  the  aperiodic  mode  is  unstable 


</>(t)  =  Lg  rR  (e,/rR  -I) 


(D-1S) 


First  examine  the  case  of  ^(t,)/LgrR  =  l 


»/T„ 

—  =  e  R  -I  =  t 
8tR 


(D-20) 


so 


and 


2 


t  =  rR  At  2  =  0.693  rR 


as  before. 

The  same  equations  govern  the  single  pole  solution. 
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APPENDIX  E 

COMPUTER  PROGRAM  LISTING 

This  appendix  lists  the  two  programs  along  with  their 
subroutines,  the  output,  and  a  list  of  the  input.  The  program 
can  be  keypunched  from  the  listings  shown,  and  the  sample  data 
can  be  used  to  check  the  program  to  ensure  it  is  functioning 
properly. 
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LONGITUDINAL  PROGRAM 
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LONGITUDINAL  PROGRAM  LISTING 


PROGRAM  LONG( INPUT, OUTPUT, TAPE5=INPUT,TAPE6*OUTPUT>  000100 

LONGIYUO INAL  TRANSFER  FUNCTION  INCLUDING  THRUST  ANO  GAMMA  000110 

DOUBLE  PRECISION  ROOTRD.  ROOTIO,  OL,  TH,  V*  H*  M,  RTR,  RTI *  A Z  000120 

OOUBLE  PRECISION  AMU* AUH , AMH « AUAZ  800130 

DIMENSION  RRI5) *RI(5> ,ROOTR ( 5) ,ROOTI (5> *  DL ( 5) *  TITLE (11)  000140 

DIMENSION  TH(3> •  V(4>*  H(4>,  AZ(4>,  M(4>  000150 

DIMENSION  R00TR0(5) ,  R00TX0C5I,  RTR(5>,  RTIC5I  0QQ16Q 

DIMENSION  IN0(13,2»,AMU(3I,AUH(3),AMH(3>,AUAZ(3)  000170 

COMMON  M,PR,RI,XKON,MNLA, ALAHN,  LL  000180 

COMMON  / A/RTR.RT I  000190 

C  OMMON/ 8/XO, XU, XQ  ,ZD ,  ZU,  ZQ* AMD* AMU* AMQ * U* GSG ,GCG* AM*BM,CM«DMV  0  0020  0 

IS  *RHO*G  *GMT  , ZT,TDT,XI,CL,  CL  A,CL AO ,CLQ,CLO£,CLH,CO  ,COA  «CDAO,CDQ,  000210 

2C  DOE*  COM*  CM At  CM  AO v  CMQ«CMDE«CMM* ALPHA , GAMA « CN,CNA ,  CNAO,CNQ,CNDE ,  000220 

3CNM,CX,CXA,CXA0,CXQ,CXDE,CXM,XH,ZM,XH0,7M0,ALA  *VE»  000230 

4  ZHAC,AM,AIY,ALX,AMW,AMWD,ALA1, ANZA,CNQ  000240 

FOR  J=fl,  USE  DIMENSIONAL  STABILITY  DERIVATIVES.  000250 

USE  N ON- 01  MENS IONA L  STABILITY  DERIVATIVES.  000260 

USE  NON-OI MENSIONAL  STABILITY- AXIS  STABILITY  DERIVATIVES.  000270 
USE  NON-OI MENSIONAL  BOOY-AXIS  STABILITY  DERIVATIVES.  000280 

USE  NON- 01 MENSIONAL  STABILITY  OR  BOOY  AXIS  DERIVATIVES  000290 

USE  NON- 01 MENSIONAL  BOOY-AXIS  STABILITY  DERIVATIVES.  000280 

FOR  M=0,  USE  NON-OIMENSIONAL  STABILITY  OR  BOOY  AXIS  DERIVATIVES  000290 

WITH  UNITS  OF  1  PER  RAOIAN  000300 

USE  NON-OIMENSIONAL  STABILITY  OR  BODY  AXIS  DERIVATIVES  000310 

MITH  UNITS  OF  1  PER  OEGREE  000320 


J=1 
FOR  K=0, 
K=l, 
FOP  M=0  * 
K=1 , 


M=l, 


0  ATAf INO 1 1*1) *1-1,12) /12*5H 


/•INDU,2)/72H  FOR  ALPHA  ANO  CQNTR000330 


11 


320 

31 

33 


10  L  OERI VITIVES,  ANO  PER  RAO  FOR  AO  ANO  Q  OERIVITIVES/  000340 

JJXX=0  000  350 

100  RE AO  (5*10)J«K«M*  RUN ,  IT  I TLE ( I)  ,  1*1 , 11 >  000360 

IF (EOF ( 5) .NE. 0) STOP  000370 

10  F0RMATCI1*I1*I1*A3,11A6)  000380 

WRITE  (6,111  RUN, (TITLE! I ), 1*1. ID  000390 

F ORMAT ( 1H1 , 10 X.45HR00TS  OF  A/C  LONG ITUOINAL  TRANSFER  FUNCTIONS  000400 
1  /1H0.27X8HRUN  NO.  .A3/1H0,  7X.11A6)  000410 

IF( J. LT • 2IG0  TO  320  000420 

JJXX=1  000430 

J= J-5  000440 

I F( J) 11 , 32*  31  000450 

IFCK) 34,33,34  000460 

I F (M. GT . 4) CALL  CHNGCM)  000470 

IF(M.GT •  4  )  G  0  TO  1001  000480 

REAO  (5*8)S*ZMAC*AM,U,RHO,G,  G Ml, AI Y, ZT , ALX, TOT , XI ,  000490 

lCLtCLA, CLAO,CLQ,CLOE ,CLM,  CO , COA, C OA 0*C0Q *  CODE  *  COM ,  000500 

2CMO.CMA ,CMAD, CMQ«CMOE*CMM*  ALPHA*  GAMA  000510 

8  F  ORMA  T ( 6E 12. 0 )  000520 

1001  IF(M.G7.4)M=K-5  000530 

IF(M) 106,37*106  000540 

37  WRITE  (6,24) S,ZMAC,AM,U,RHO,G,  GMT, AIY, ZT, ALX, TOT, XI,  000550 

1CL,CLA, CL  AO, CLQ,CLDE,CLM,  CO, COA, CO  AO ,COQ, CODE*  COM,  000560 

2CM0.CMA* CMAO, CMO,CNOE ,CMM,  ALPHA, GAMA  000570 

24  FORMAT ( 1 H  /10X48HINPUT  OATA  (STABILITY  AXIS  DERI VATIVES) , PER  RAO  000580 

1  / 1HQ , 4 X 3HS  =1PE12.4,4X5HMAC  *E12.4, 3X6HMACH  =El2.4,5X3HU  =E12.4,  000590 

2  4X5HRH0  =E12.4,5X3HG  =E 1 2. 4/3X5HGM T  =E12.4,4X5HI YY  =  E12. 4,  000600 

3  5X4HZT  =E1 2 • 4, 4X4HL  X  =E12.4,4X5HT0T  =E12. 4, 4X4HX I  =E 12.4/4X4HCL  =000610 

4  E12.4,4X5HCLA  =E 12. 4 * 3X6HCL AD  =£12.4, 3X5HCLQ  =£12. 4, 3X6HCL0E  = 

5  E12. 4, 3X5HCL M  =E 12. 4/4X4HC0  =E12.4, 4X5HCOA  =E12. 4,3X6HC0AD  = 

6  E 12. 4, 3 X5HCOQ  =E12. 4,3X6HC00E  =E12.4*3X5HC0M  =E12.4/3X5HCMT  = 

7  E12. 4, 4X5HCM A  =E 12. 4, 3X6HCMAO  =E12 . 4 , 3 X5HCMQ  =E1 2. 4, 3X6HCM0E  = 

8  E12. 4, 3X5HCMM  =E12.4/1H  ,7HALPHA  =E12. 4, 3X6HGAMA  =E12.4) 


GO  TO  101 


000620 

000630 

00C64Q 

000650 

000660 

000670 


83 


AFFDL-TR-78-203 


LONGITUDINAL  PROGRAM  LISTING 


106  WRITE  <6,1051 ! 1 NO 1 1 *M)*I=1,6) 

A  ,  3,ZMAC,AM,U*RH0*G,  GWT # AI Y, ZT, ALX, TOT. XI , 

1CL  »CL A*  CL  AO *CLQ *CLDE  ,CLH,  CD, CO A, CD AO »COQ* CODE*  COM, 

2CM0*CMAtCMA0,CMQtCMDE*CMM,  ALPHA, GAMA 


000660 
000690 
00C  ?00 
000710 


105  FORMAT! 1H0,10X,48HINPUT  OATA  ISTABILITT  AXIS  OERI VATI VESI ,  PER  OEGQ0072Q 


7A10.A2 
/1H0.4X3HS  =1PE12.4, 4X5HMAC 


000730 

:E12.4, 3  X6HM ACH  =E12.4,5X3HU  =E12.4,  000740 


4X5HRH0  =E12.4,5X3HG  =612. 4/3X5HGWT  =E12.4, 4X5HI TY  =E12.4,  000750 

5X4HZT  =£12 .4,4X4HLX  =E12. 4, 4X5HT0T  =£12.4, 4X4HX I  =E 12.4/4X4HCL  =000760 
E12.4.4X5HCLA  =E12. 4*3X6HCLA0  =£12.4 ,3X5HCLQ  =E1 2. 4, 3X6HCLDE  =  000770 

E12.4.3X5HCLW  =£12. 4/4X4HC0  =E12.4,4X5HCDA  =E12. 4, 3X6HCOAD  =  000780 

E12.4, 3X5MCOO  =£12. 4, 3X6HCDOE  =E12. 4, 3X5HCOM  =E1 2. 4/3X5HCMT  =  000790 

E12.4.4X5HCMA  =£12. 4, 3X6HCM AO  =E12 • 4 , 3 X5HCMQ  =E12. 4, 3X6HCM0E  =  000*00 

E12.4,3X5HCMM  =£12.4/1H  .7HALPHA  =E12.4, 3X6HGAMA  =£12. 4)  000810 

OTR=57. 295779  000820 

CLA=CLA*OTR  000830 

CLOE=CLOE*OTR  000640 

COA=COA*OTR  000650 

COOE=CDDE*DTR  000860 

CMA=CMA*DTR  000870 

CMOE=CMOE*OTR  000880 

1FCM.EQ.2I  GO  TO  101  000890 

CMQ=CMQ*DTR  000900 

CMAO=CMAO*OTR  000910 

CLAD=CLAO*OTR  000920 

CLQ=CL9*DTR  000930 

C  OAD=  CD AO*OTR  000940 

CnO=CDQ*OTR  000950 

GO  TO  101  000960 

34  IFCM.GT.4I  CALL  CHNGCM)  000970 

IF  CH.GT . 4) GO  TO  1003  000980 

READ  ! 5  * 9 ) S » ZMAC, AM , U * RHO ,G *  G  WT,  A I Y  ,  ZT ,  AL  X,  TOT  ,  XI ,  000990 

1CN,CNA,CNA0,CNQ,CN06,CNM,CX,CXA,CXADVCXQ,CX0E,CXM,  00 1000 

2CMO,CMA  *CMAD,CMQ,CMD£ , CMM,  ALPHA, GAMA  001010 

9  FORMATC6E12.0 )  001020 

1003  IFCM.GT.4lM=M-5  001030 

IFCM) 107,36,107  001040 

36  WPITE  (6,25>CN,CNA,CNAD,CNQ,CN0E,CNM,CX,CXA,CXAD,CXQ,CXDE,CXM  001L50 

25  FORMAT! 1H0, 10 X43HINPUT  OATA  (BOOT  AXIS  DERIVATIVES),  PER  RAD  001060 

1  /1H0  *2 X4HCN  =1PF 12. 4*4X5 HCNA  =E12. 4 , 3X6HCN AO  =£12.4*  3X5HCNQ  =£12.001070 
24  *  3X6HC  NOE  =E12.4 ,3X5HCNM  =£12. 4/3X4HCX  =E 1 2. 4 , 4X5HCX A  =E12.4,  001080 

3  3X6HCX0E  =E12.4,3X5HCXQ  =E1 2 .4 , 3X6HCXDE  =£12.4, 3X5HCXM  =£12.4)  001090 

D  TP=5  7,  2 957  79  091100 

apd=alpha/dtr  001110 

SA=SIN( AOOI  001120 

CArCOS(AOO)  001130 

CL=CN*CA-CX*SA  001140 

CLA=ICMA-CXI •CA-(CN+CXA)*SA  001150 

CLAO=CNAD*CA-CXAD*SA  001160 

CLM=CNM*CA-CXM*SA  001170 

C  LQ=C  NQ*C  A-CX  Q*  SA  001180 

CLD£=CNOE*CA-CXOE*SA  001190 

CP=CX*CA*CN*SA  001200 

COA=!CXA*CNI *CA* ( CNA-CX) *SA  001210 

COAO=CX AO*CAfCNAD*SA  001220 

COM=CXM*CA^CNM*SA  001230 

COQ=CXQ*CA»CNO*SA  001240 

CnO£=CXD£*CA»CNOE*SA  001250 

WRITE (6,77)S,7MAC,AM,U,RHO,G*  G WT,  A  I Y, ZT , ALX, TOT, XI ,  001260 

1CL.CLA, CLAO,CLQ,CLOE,CLM,  CD,COA, CDAD  *CDQ » CODE , COM,  001270 
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2C  MO,CHA ,CHAO, CHQ.CMOE tCHNi  ALPHA. GAHA  001280 

F  ORHA  T  ( 1H0.10X, 3 5H STABILITY  AXIS  DERIVATIVES.  PER  RAO  001290 

1  /1H0.4X3HS  =1P£12.4, 4X5HHAC  =E12.4,3X6HHACH  =E12.4, 3X3HU  =£12.4,  001300 

2  4X5HRH0  =E12.4,5X3HG  =E12.4/3X5HGHT  =E12.4,4X5MIYY  =E12.4,  801310 

3  5X4HZT  =E12.4,4X4HLX  =£12. 4.4X5HT0T  =£12. 4, 4X4HXI  =E 12. 4/4X4HCL  =001320 

4  €12. 4.4XSHCL  A  =E12.4.3X6HCLAD  =£12.4. 3X5HCLQ  -El 2. 4. 3X6HCLDE  *  001330 

5  E12.4.3X5HCLH  =E12. 4/4X4HC0  =£12  .4  .4X5HCDA  =£12. 4, 3X6HC0A0  =  001340 

6  E12.4, JX5HC00  =£12. 4.3X6HC00E  =E12. 4. 3X5HCOM  =E12.4/3X5HCNT  =  001350 

7  E12.  4, 4X5HCH  A  =£12.4 , 3X6HCNA0  =E12.4»3 X5HCHQ  =E12.4, 3X6HCM0E  =  001360 

*  E12. 4. 3X5HCHM  =£12.4/1H  .7HALPHA  =E12.4,  3X6HGAHA  =E12.4)  001370 

GO  TO  101  001360 

WRITE  16.78  1 IINOCI.H) ,1*1,0)  001390 

A  ,  CN. CNA.CNAO.CNQ.CNDE ,CNM .CX.CXA.CXAO.CXQ. CXOE.CXH  001400 

FORNATI 1H0, 10X.43HINPUT  DATA  (BOOT  AXIS  DERIVATIVES),  PER  DEG  001410 

A  7A10.A2  001420 

1  /1H0.2X4HCN  =1PE12.4,4X5HCNA  =E12. 4, 3X6HCNA0  =E1 2. 4, 3X5HCNQ  =£12.001430 

24 , 3X6HCNOE  =E12.4,3X5HCNM  =E 12 . 4/3X4HCX  =E 12. 4 . 4X5HCX A  =£12.4,  001440 

3  3X6HCX0E  =£12.4, 3X5HCXQ  =E12.4, 3X6HCXDE  =£12.4, 3 X5HCXM  =£12.41  0014S0 

DTR  *  57.295779  001460 

CNA=CNA*OTR  001470 

CNDE  =  CNOE*DTR  001480 

CXA=CXA*OTR  001490 

C  XOE=CXOE*DTR  001500 

CHA=CMA*DTR  001510 

CMO£=CNO£*OTR  001520 

IFIN.EQ.2)  GO  TO  106  001530 

CMQ=C>M*OTR  001540 

CMAD=CNAO*OTR  001550 

CXAO=CXAO»DTR  001560 

C  XO=CXO*OTR  001570 

CNO=CNQ»OTR  001560 

CNAO=CNAD*OTR  001590 

GO  TO  106  001600 

(1TR=57. 295779  001610 

ZMASS=GWT/G  001620 

XIDD=*XI»ALPH8)/OTR  001630 

C IX=COS ( X  IDO I  001640 

S IX=SIN ( XIOD)  001650 

RSU=RHO*S*U  001660 

RSUH=RSU/ZMASS  001670 

RSUIC=RSU*ZMAC/AIY  001680 

X  U=-R SUN* ( <  AN*C0N/2.  0 ) »CD I  001690 

ZU=-RSUH»MAH*CLN/2.0I  *CL)  001700 

AHU=RSU ICM  <  AM*CMH/2 . 0) -CMC)  001710 

XW=RSUN*ICL-C0A>/2.0  001720 

ZW=-RSUN*(CLA*CO)/2.0  001730 

ANW=RSUIC*CNA/2.0  001740 

XWO=-RSUH*ZHAC»CDAO/«4.0*UI  001750 

ZWO=-RSUN*ZNAC*CLAD/I4.0»U)  001760 

AMWD=RSUIC*ZNAC»CNAO/(4.0*U)  001770 

X0=-RSUM*ZMAC*COQ/4,0  001780 

ZO=-RSUN*ZMAC*CLQ/4.0  001790 

AHQ=RSUIC*Z  HAC*CHQ/4 . 0  001800 

XD£=  -RSUN*U*COOE/2.0  001810 

ZOE*  -RSUN*  U*  CLOE/2. 0  001620 

AMD£=  RSUIC*U*CNOE/2,  001830 

X  OT=  TOT*CIX/ZMASS  001840 

Z0T=-T0T*SIX/7NASS  001050 

A  NDT=  ZT*TDT/AIV  001860 

ALA=  RSUN*CLA/2.  001070 
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ANZA=  AL  A*U/G 
AKX=SQRTCAIY/ZMASS) 

VE  =U*SQRT(RH 0*420.716) 

OfPGN=( CMA*CL*G*ZMAC*CMQ*CLA/(2.*U*U) ) 

DEPG=OEPGN/ CCLA*CMOE-CMA*CLOE) 

GO  TO  35 

32  I Ff M. GT « 4ICALL  OHNG  |M> 

I F(M. GT. 4 )G0  TO  1002 

READ  (5*12) XU,ZU,AMU,XW,ZW, AMW , X HD , Z WO , A MWO, XQ , Z Q, AMQ , 

10,U,G,GAMA,VE.ALA, ANZA,XOT,ZDT, AMOT 
A  KX=0  • 

XOE=XO 
ZT)£=ZO 
AMOE=AMO 

1002  lF(M.GT.4)M=M-5 
12  FORMATC6E12.0) 

35  WRITE  (6,26)XU,ZU,AMU,XW,ZW,AMW,XWD*ZW0*AMWD# 

1XDE,Z0E,AMDE,XDT,ZDT,AM0T,U,G,GAMA, VE, ALA, ANZA, AKX 
26  FORMAT* 1H0, 10X, 33HOIMENSIONAL  STABILITY  DERIVATIVES 

1  /1H0»2X#4HXU  =E12.4,5X,4HZU  =E12.4 , 5X, 4HMU  =El2.4 

2  /3X,4HXW  =E12.4,5X,4HZW  =E1 2.4 , 5X, 4HMW  =E12.4 

3  /2X,5HXW0  =E12.4,4X,5HZW0  =  E12 .4,4X,5HMW0  =E12.4 

4  /3X.4HXQ  =E12.4,5X,4H7Q  =E 1 2.4 , 5X, 4HMQ  =£12.4 

5/ 2X,5HX0E  =E1 2. 4. 4X  *  5  HZDE  =E12.4,4X,5HM0E  =E12.4 

A/ 2Xf  5HX0T  =E12.4,4X,5HZDT  =E 12. 4 ,4X , 5HM0T  =E12.4 

6  /4X, 3HU  =E12.4,6X,3HG  =£12. 4, 3 X, 6HGAMA  =£12.4/ 

7  3X4HVE  =E12. 4. 5X4HLA  =E12.4,4X5HNZ A  =E12.4/3X4HKY  =£12.4) 
IF(J.£Q. 1. AND. K.EQ. 0 ) WRITE (6,69) 0£PG 

69  FGRMAT(1H«-,21X,6H0E/G  =£12.4) 

0TR=57. 295779 
X  K0N=2. *3.14159 
GOO=G AMA/OTR 
SG=SIN(GOO) 

CG=COS(GOO) 

G  SG=G*SG 
GCG=G*CG 

C  LONGITUOINAL 

00  128  11=1,4 
128  W(II)=0.0 

WRITE  (6,16) 


DENOMINATOR  CHARACTERISTICS 


001880 
001890 
001900 
001910 
001920 
001930 
001940 
001950 
X0,2O,AMOO196O 
001970 
031980 
001990 
002000 
002010 
QO  2020 
002030 
XQ,ZQ,AMQ, 002040 
0020 50 
002060 
QO  2070 
002080 
002090 
002100 
002110 
002120 
002130 
002140 
002150 
002160 
002170 
002180 
002190 
002200 
002210 
002220 
002230 
002240 
002250 
002260 
002270 


16  FORMATC 1H0, 20X,55MTME  CHARACTERISTICS  OF  THE  LONGITUOINAL  OE NOMI NAOO 228 0 


66 

401 


IT  OR  ARE) 

A*1.0-ZWD 

B*-A* (XU* AMO) -ZW-AMWD* (U*ZQ> -ZU*XWD 

C*XU* (AMQ*A*ZM*AMWO* (U*ZQ) ) -AMU* (XWO* (U*ZQl ♦xq*ai ♦amq*zw 
1  ♦ZUM  XWO*AMQ-XW-AMWO*XQ)  ♦AMWD*GSG-AMW*(U*ZQ) 

Q-GSG* ( X WO*  AMU*AMW-XU*AMWD) *GCG* (ZU* AMWQ* AMU*A ) 

1  *AMU* ( XQ*ZW-XW*fU^ZQ)) ♦ZU* C AMO *XW- AMW *XQ| 

2  ♦XU* ( AMW*  (U*ZQI-AMQ*ZW) 
EsGCGMZU*Amt-AMU*ZW>^GSG*tAHU*XW-AHW*XU) 

OL(l)=A 

DL (2) =8 
OL ( 3) =C 
DL(4)=0 
0H5)=E 
N'4 

CALL  0MULR(  OL  ,N,ROOTRD,ROOTI  0) 

M  =  1 

WRITE  16,401) 

FORMATflH  ,11 X20HROO TS  (COMPLEX  FORM)) 


002290 
002300 
002310 
002320 
002330 
002340 
032350 
002360 
002370 
002360 
002390 
002400 
00  2410 
002420 
002430 
002440 
002450 
002460 
002470 
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WRITE  16*18) (ROOTRDf I)* ROOT 10(1) »I*i,N) 

18  FORMATI1H  *  10X012.4,5X012.4) 

00  TOO  1*1* N 

RQQTRfll =-ROQTRO(I) 

700  ROOT  I  CD  *-ROOTIO(  I) 

GO  TO  (65*67*72, 73), M 
65  I Ffl.E-4-ABSCR00TI(l))) 113*114,114 

113  Wi=SQRT(R00TR(l>**2*R00TI<i) ♦*2) 

Zl=  ROOTR (1 ) /Ml 

W3=W1/XK0N 
L  *1 

121  IFC1.E-4-ABSCR00TI (3) )) 115*116, 116 

115  W2=SQRT(R00TR(3)**24R00TI(3) **2> 

Z2=  ROOTR (3  > /W2 

W4=W2/XK0N 
GO  TO  ( 111, 122) » L 
111  IF (Wl-W  2) 118, 118, 117 

117  WRITE  (6,14) Z2,W2,Z1,W1,W4,W3 
WSP=  W1 

GO  TO  81 

118  WRITE  (6, 14) Z1«W1*Z2*W2*  W3*W4 
WSP=  W2 

14  F  ORNAT( 1H0 , 2X4H ZP  =E14.6,5X4HWP  =£14.6, 8H  RAO/SEC ,5X5HZSP  =£14.6 

15X5HWSP  *E14. 6, 8H  RAD/SEC/2 6X4H  =E14.6,11H  CYCLES/ SEC, 2 6X5H 
2E 14.6, 11H  CYCLES/SEC) 

0UMB=Z2 

Z2=Zl 

Z1=0UNB 

STUPE* W2 

W2=W1 

W1=STUPE 

GO  TO  81 

116  GO  TO  (20,21)  , L 

20  CALL  FRQCK  ( Zi , W1 , ROOTRf 3 ) , ROOTR (4) , W3) 

GO  TO  183 

114  IF(l.E-4-ABS(R00TI (2) ) ) 119, 120, 120 

119  V»1=SQRT lR00TR<2>**24R00TIt2)**2) 

Zl=  R00TR(2)/W1 

W3=W1/XK0N 

CALL  FRQCK  ( Zl, Wl,ROOTR< 1) , ROOTR (4) ,W3) 

GO  TO  183 

120  L  =  2 

GO  TO  121 

21  WRITE  (6,19) (ROOTR(I) • 1  =  1 *  N) 

19  FCRHAT< 1H0, 1X7H1/TD1  =E14.6, 5X7H1/T02  =E14. 6,5X7H 1/T03  =E14.6, 
15X7H1/T04  =E14.6) 

GO  TO  83 

122  CALL  FRQCK  ( Z2 , W2 , ROOTR ( 1 ), ROOTR ( 2) , W4 ) 

GO  TO  183 

81  PER=XK0N/(W1*SQRT(1.-ABS(Z1>**2>> 

TT01=.69315/(ABS(Z1)*W1) 

TT02=2. 30259/ (ABStZl)*Wl) 

C  T01=TT  01/PER 
CT02=TT  02/PER 
Cr03=1.0/CT01 
CT04=1.0/CT02 
WNL A  = WSP/AL  A 
ALAWN  =1./WNLA 
T7W  =  2 • *  Zl* WSP 
WNOS  =  (WSP)**2 


00  2460 
002490 
002500 
002510 
002520 
002530 
002540 
002550 
002560 
002570 
002580 
002590 
002600 
002610 
002620 
002630 
002640 
002650 
002660 
00  2670 
002680 
002690 
•  002700 
=002710 
002720 
002730 
002740 
002750 
002760 
002770 
002780 
002790 
002600 
002810 
002820 
002830 
002840 
002850 
002660 
002870 
002880 
002890 
002900 
002910 
002920 
002930 
002940 
002950 
002960 
002970 
002980 
002990 
003000 
003010 
003020 
003030 
003040 
003050 
003060 
003070 
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IFCZIU)  9*110,402  003080 

402  WRITE  <6, 124) PER.  TTOl, TT02.CT01 ,CT02 ,CT03 .CT04 . TZW.WNOS . WNL A , ALA WN00 3090 
124  FORMATI1H0, 1X17HSHORT  PERIOO  MOOE/1HC  ,  UX8HPERI00  *E13.5,  6X19HTIM003100 
IE  TO  HALF  AMP.  =£13. 5, 16X24HTIME  TO  ONE  TENTH  AMP.  =E13.5/1H  ,36X2003110 
21HCYCLES  TO  HALF  AMP.  =£13. 5, 14X26HCYCLES  TO  ONE  TENTH  AMP.  =E13. 5003120 
3/ 28X3QH ONE  OVER  CYCLES  TO  HALF  AMP.  =  E1 3. 5 , 5X35H0NE  OVER  CYCLES  T0003130 
4  ONE  TENTH  AMP.  =E13. 5/47XllH2*7SP* WSP  =E13.5, 33X7HWSPSQ  =E13.5  003140 


5/1H  , 50  X7HWN/LA  =E1 3. 5, 33X7HLA/ WN  =£13.5)  003150 

GO  TO  74  003160 

110  WRITE  *  6.  14  9) PER, TTO 1 , TT02.CT01 • CT02  003170 

149  FORMAT* 1H0,  1X26HSHORT  PERIOO  MODE  /1H0 , 11 X8HPERIOO  =E13. 5 , 003li ? 

1  4X21HTIME  TO  OOUBLE  AMP.  =E13. 5, 16X24HTIME  TO  TEN  TIMES  AMP.  =£13003190 
2.5/1H  .34X23HCYCLES  TO  OOUBLE  AMP.  =E13.5, 14 X26H CYCLES  TO  TEN  TIME003200 
3S  AMP.  =E13 .5 )  003210 

74  PER=XKON/*W2*SQRT*l.-ABS*Z2) **2))  003220 

TT01=.69315/*ABS«Z2)*W2)  003230 

TT02=2. 30259/ *ABS*Z2)*W2)  003240 

CT01=  TTOl /PER  003250 

CT02=TT02/PER  003260 

CT03= 1 • 0 /CT  01  003270 

CT04= 1. 0/CTO2  003280 

PTZW  =  2.*Z2*W2  003290 

PWNOS  =  *  W2 ) * *2  003300 

IF*Z2)76,76,79  003310 

79  WRITE  *6,138) PER, TTOl, TT02.CT01.CT02.CT 03, CT 04, PTZW, PWNOS  003320 


138  FORMAT* 1H0, 1X17HLONG  PERIOD  MOOE  /1H0 , 11X8HPERI OD  =E13.5,  6X1 9HTI MOO  3330 
IE  TO  HALF  AMP.  =E 1 3. 5 , 16 X24H TI ME  TO  ONE  TENTH  AMP.  =E13.5/1H  ,36X2033340 
21HCYCLES  TO  HALF  AMP.  =E13. 5, 14X26H CYCLES  TO  ONE  TEN . H  AMP.  =£13.5003350 


3/28X30HONE  OVER  CYCLES  TO  HALF  AMP.  =E13.5 .5X35H0NE  OVER  CYCLES  T0003360 
4  ONE  TENTH  AMP.  =E1 3. 5/49 X9H 2* ZP* WP  =E13. 5,34X6HHPSQ  =E13.5)  003370 

GO  TO  83  003380 

76  WRITE  *6,139)PER,TT01,TT02,CT01,CT02  003390 

139  FORMAT* 1H0, 1X26HL0NG  PERIOO  MODE  / 1H0 , 1 1 X8HPERI00  =E 1 3. 5 , 00 340 0 

1  4X21HTIME  TO  DOUBLE  AMP.  =E  1 3.  5 , 0.6X24H  TI  ME  TO  TEN  TIMES  AMP.  =£13003410 
2.5/1H  , 34X23HCYCLES  TO  OOUBLE  AMP.  =E 13 .5 , 14X26HC YCLE S  TO  TEN  TIME003420 
3S  AMP.  * E13.5)  003430 

GO  TO  83  003440 

183  I F *LL • NE • 1 )  GO  TO  83  003450 

WRITE (6 , 1 84 )  WNL A , AL  A  WN  003460 

184  F CRMAT*51X7HWN/LA  =E 1 3. 5 , 3i»X7H L A / WN  =E13.5)  003470 

53  WRITE  *6, 17) A,B,C.O,E  003480 

17  FORMAT* 1HO,4DX12HCOEFFICIENTS/1HO,2X3HA  =E14.6,5X3HR  =E14.6,  003490 

15X3HC  =E14.6,5X3HO  =E14.6,5X3HE  =E14.6)  003500 

C  ELEVATOR  003510 

XD=XDE  003520 

ZP=ZDE  003530 

A  MO= A MOE  003540 

J 1=0  003550 

IF(XDE.EQ.O..ANO.ZOE.EQ.O..ANO.AMOE.EO.O.)  GO  to  38  003560 

WRITE  *6,301)  RUN  003570 

331  FORMAT* 1H1,8HPUN  NO.  , A 3 , 10 X 34H ELEV A TOR  NUMERATOR  CHA RACTER ISTICS)  0 0 3580 

C  THETA  NUMERATOR  003590 

44  DO  131  11=1,5  003603 

ROOTR*II) =0.0  003610 

131  ROOTI *  IT) =0.C  003620 

WRITE  *6,  302)  003630 

302  FORMAT* 1H-, 15X* THETA  PER  CONTROL  DEFLECTION*)  003640 

AT=ZO*AMWO» AMO* A  003650 

BT  =  XD*  *  ZU’AMWO*  AMU*A ) »ZO*  <  AMU*XWO»AMW-XU* AMWO)  003660 

1  -AMO** XU*A»ZW*ZU*XWO)  003670 
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CT=XD* ( ZU*AMW- AMU*Z W) ♦2D*(ANU*XW-XU*AMW) ♦AMD** XU*ZW-ZU*XW) 
TH*1) =  A  T 
TH*2)=BT 
TH  *  31  =CT 

IF*TH(1! .EQ.O .)GO  TO  42 
N=2 

CALL  OMULRCTH*  N»ROOTRO, ROOTI 0) 

M=2 

GO  TO  66 

67  I F(l.E-2-ABS(R00TI*l) 1) 134,135,135 

134  WT1=S0RT(R00TR(U **2 ♦ROOTI C 1 ) ♦* 2) 

Z  =  ROOTRUI/MTl 

WRITE  «6,22>Z,WT1 

22  FORMAT! 1H0,3X4HZT  =E14.6, 5X4HW7  =£14.6) 

GO  TO  90 

42  ROOTR (1)  =  CT/BT 

WRITE  (6*161)  ROOTR(l) 

161  F  ORHA  T ( 1H0*  4X6H1/TT  =£14.61 
GO  TO  90 

135  WRITE  (6,23)R00TR(1) *R00TR(2) 

23  FORMAT* 1HQ,3X7H1/TT1  =E14.6, 5X7H1/TT2  =£14.6) 

90  WRITE  16, 303) AT,BT*CT 

303  FORMAT! 1H0, 3X4HAT  =E14. 6* 5X4H8T  =£14.6, 5X4HCT  =E14.6I 
00  132  11=1,5 
ROOTR ( I I ) =0 • 0 
132  ROOTI (II) =0.0 

C  HORIZONTAL  VELOCITY  NUMERATOR 

WRITE  (6,27) 

27  FORMAT* 1H-,15X*L0NGITU0INAL  VELOCITY  PER  CONTROL  DEFLECTION*! 
AU=XD*A*Z0*  XWD 

BU=-XDM AMQ*A*ZW+AMWO* (U»ZQ)I ♦ZD* (AM WO*  XQ^XW-XWD*  AMQ) 

1  ♦AMO* ( XWO* (U+Z Q)*XQ*A) 

CU=XO*( AMQ*ZW-AMW*fU^ZQI ♦AMWO*GSG)^ZO*( XQ*AMW- AMWO*GCG- XW* AMQ > 
1  ♦AMOMXK**U*  ZQ)-XWO*GSG-XQ*ZW-GCG*A) 
OU=XO*AMW*GSG-ZO*AMW*GCG^AMD*(ZW*GCG-XW*GSG) 

V  ( 1)  *  AU 

V  (2)  =  BU 

V  (3)  =  CU 

V  (4)  =  OU 
N  =  3 

I F ( V ( 1 ) • NE • 0 • )  GO  TO  152 
N  =  2 

V  *1)  =  V( 2) 

V  *2)  =  V *  3) 

V  *3>  =  Vf 4) 

I F ( V ( 1) .EO. 0. )GC  TO  15 
152  CALL  OMULR* V, N, ROOTR 0, ROOTI 0) 

M  =  3 

GO  TO  66 

72  I F  *1 • E-2 -A8S (ROOTI (1)  1 1  136,137,137 

136  WV1=SQRT (ROOTR( 1) ** 2 ♦ROOT I (1) **2) 

Z=  ROOTR *1)/WV1 

IF(N.EQ.2)  GO  TO  39 
WRITE  (6,40) Z,WV1,R00TR(3) 

40  FORMAT* 1H0, 2X4HZU  =E 14 • 6 , 5X4HWU  =£14. 6, 5X6H1/TU  =£14*6) 

GO  TO  84 

137  I F(N. EQ • 2 ) GO  TO  140 
IF(l.E-2-ABS(R00TI(2) 1)141,41,41 

141  WV2=SQRT (ROOTR*  2) **2^R00TI (2) **2) 

Z=  ROOTR (2) / WV2 


003680 
•03690 
003700 
003710 
003720 
003730 
093740 
003750 
003760 
003770 
003780 
003790 
003800 
003810 
003820 
003830 
003840 
003850 
003860 
00  3670 
003880 
003890 
003900 
003910 
003920 
003930 
003940 
003950 
003960 
003970 
003980 
003990 
004000 
004010 
004020 
004030 
004040 
004050 
004060 
004070 
004080 
004090 
004100 
004110 
004120 
004130 
004140 
004150 
004160 
004170 
004180 
004190 
004200 
004210 
004220 
004230 
004240 
004250 
004260 
QQ4270 


89 


LONGITUOINAL  PROGRAM  LISTING 


WRITE  ! 6*40) 2, WV2,R00TRID 

004280 

GO  TO  84 

004290 

39 

WRITE  !6,143)Z,WV1 

004300 

14  3 

FORMAT! 1H0.2X4HZU  =£14.6,  5X4HWU  =£14.6) 

004310 

GO  TO  54 

004320 

IS 

ROOTR(l)  =  OU/CU 

004330 

WRITE  16, 30)R0OTR(l) 

004340 

30 

FORMAT(1HO,2X6H1/TU  =€14.6) 

004350 

GO  TO  84 

004360 

41 

WRITE  (6, 145) ROOTR! 1) ,ROOTR( 2) , ROOTR (3) 

004370 

145 

FORHATl 1H0, 3X7H1/TU1  =E 14 .6 , 5X7H1/TU2  =  E14. 6.5X7H 1/TU3  =E14.6) 

004380 

GO  TO  84 

004390 

140 

WRITE  16* 112) ROOTR 11) ,R00TR(2) 

004400 

112 

FORMAT! 1H0, 3X7H1/TU1  =E14.6, 5X7H1/TU2  =E14.6) 

004410 

54 

WRITE  (6,304) AU,BU,CU, DU 

00442C 

304 

FORMAT! 1H0.2X4HAU  =E14. 6, 5X4HBU  =  tl4 . 6, 5X4HCU  =E14. 6, 5X4H0U  =E14. 

6004430 

1) 

004440 

00  148  11=1,5 

004450 

ROOTR !II)=0.0 

004460 

148 

R OOTI ! 1 1) =0  .0 

004470 

VERTICAL  VELOCITY  NUMERATOR 

004480 

WPITE  ! 6, 30  6) 

004490 

30  6 

FC«MAT!1M-, 15X*N0RMAL  VELOCITY  PER  CONTROL  DEFLECTION*) 

004500 

N  =  3 

004510 

00  130  II=i,4$IF(W(II> .NE.0.0)  GO  TO  180 

004520 

130 

CONTINUE 

004530 

AW=*ZO 

004540 

BW=4XO*?U 

004550 

1  *ZO* <-AMQ-XU> 

004560 

2  ♦AMO* (U4ZO) 

004570 

CW=4XO*  MU4  7Q)*AMU-AM0*ZU) 

004580 

14ZO*! AMQ*XU-XO*AMU) 

004590 

24 AMO*  <7U*X0-GSG-!U47Q>*XU> 

004600 

0  W=-XO*  AMU*  GSG 

004610 

1470*AMU*GCG 

004620 

24  AMD* (XU*GSG-ZU*GCG) 

004630 

W (1)  =  AW 

004640 

W  !  2)  =  9W 

004650 

W!31  =  CW 

004660 

W ! 4 )  =  OW 

004670 

N  =  3 

004680 

IF CW! 1 ) .NE.O.Ol  GO  TO  156 

004690 

W(l)  =  W  (  2) 

004700 

W  (2)  =  Wf3l 

004710 

W ! 3)  =  W !  41 

004720 

N  =  2 

004730 

I F !W! 11 .EQ.O.OIGO  TO  123 

004740 

156 

CALL  DMULR!W,f.,RTR,«TI) 

004750 

180 

WPITE  ! 6, 40 1 ) 

004760 

WPITE!6,18)  !RTR!I),RTI!I)  ,I=1,N) 

004770 

00  600  1=1, N 

004780 

RR! I ) =- RTR ! I ) 

004790 

600 

RI4I)=-RTI!I) 

004800 

I Fil.E-2-ABS (PI (1)1 )  54,55,55 

004810 

54 

WW1=SQRT!RR!1)  **24RH1)*4  2) 

004820 

Z=  RR ! 1 1 / WW 1 

004830 

I F ( N. EQ. 2 ) GO  TO  163 

004840 

WPITE  ( 6, 56) Z,WW1,RR<3) 

004850 

56 

FORMAT! 1H0,  2X4HZW  =E 1 4. 6, 7X4M WW  =£14 . 6, 7X7H1/TW  =E14.6) 

004860 

GO  TO  103 

004870 
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55  IFIN.EQ.2IGO  TO  157 

I  F(l.E-2-ABS«RI  I2UI  57,58*58 

57  WW2=SQRT<RR<2)**2*RI<2)**2) 

Z  =  RR(2)/WW2 

WRITE (6*56)  Z,WW2,RR *1) 

GO  TO  103 

163  WRITE  ( 6, 59) Z  « WW1 

59  FORMAT* 1H0,2X4HZW  =E14.6 • 7X4HWW  =£14,6) 

GO  TO  103 

157  WRITE  (6,129)RR(1) ,RR<2) 

129  FORMAT* 1H0.2X7H1/TW1  =E14.6,7X7H1/TW2  *E14.6) 

GO  TO  103 

123  RR  Cl)  =  DW/CW 

WRITEI6, 29)RR(1) 

29  FORMAT*  1H0,2X6H1/TW  =E14.6) 

GO  TO  103 

58  WRITE  (6,60)RR(1) ,RR<2) ,RR(3) 

60  FORMAT* 1M0,2X7H1/TW1  =E14 .6, 7X7H1/T W2  =E14. 6.7X7H1/TW3  =Ei4.6) 
103  WRITE  *6,307| AW,8W,CW,0W 

307  FORMAT* lH0f2X4HAW  =E 14 . 6  » 7X4HBW  =£14. 6, 7X4HCW  =E14. 6, 7X4H0W  =E14 
1) 

OO  133  11=1,5 
R  OOTR  ( 1 1 )  =0  •  0 
133  ROOTI ( II ) =0 . 0 
C  ALTITUOE  NUMERATOR 

WRITE  *6,305) 

305  FORMAT* 1H-, 15X*ALTITUOE  RATE  PER  CONTROL  DEFLECTION*) 
AH=AU*SG-AW*CG 
BH=U*AT*CG»BU*SG-BW*CG 

ch=u*bt*cg*cu*sg-cw*cg 

OH=U*CT*CG*OU*SG-DW*CG 

H«l)=  AH 

H  <2)  =  8H 

H*3>=CH 

H*4)=0H 

N  =  3 

IF*H*1)  .NE.0.0)  GO  TO  127 
H*1)  =  H*2) 

H  12)  =  H*  3) 

H  *3)  =  H<  4 ) 

N  =  2 

IF*H* 1* .EO.O. )GO  TO  75 
1 27  CALL  OMULR  f H  ,N,ROOTRO,ROOTTO) 

M=4 

GO  TO  66 

73  IF* 1.E-2-ABSC ROOTI *1) 1)45,46,46 

45  WHi=SQRT  * ROOTR* 1) **2*R00TI *1) **2) 

Z  =  ROOTR  *  1) / WH1 

IF*N.E0.3)  GO  TO  43 
WPITE  *  6 , 47 ) Z , WHl 

47  FORMAT* 1H0,2X4H7H  =E 14. 6, 7X4HW7  =E14.6» 

GO  TO  104 

75  ROOTR* 1)  =  DH/CH 

WRITE  *  6,49) ROOTR  *  1* 

49  FORMAT* 1H0, 3X6H1/TH  =E14.6I 
GO  TO  1T4 

46  I F * N. EQ %  3 ) GO  TO  50 

WRITE  *6,48)R00TR*1) ,ROOTR*2) 

48  FORMAT* 1H0,2X7H1/TH1  =E14.6, 7X7H1/TH2  =E14.6) 

GO  TO  104 
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43  WRITE  ( 6,51) Z,WH1 ,ROOTR( 31 

51  FORMAT! 1H0.2X4H7H  =E14. 6,  7X4HWH  =  E14 •  6,  7X7H1/TH 3  =E14.6> 

GO  TO  104 

50  IF(l#E-2-ABS (ROOT I (2)))52«53,53 

52  WH3=SQRT(ROOTR(2)**2^ROOTI(2)**2) 

Z=  ROOTR (21 /WH3 

WRITE  (6,51)  Z, WH3, ROOTR ( 1) 

GO  TO  104 

53  NRITE  (6,155)R00TR(i) , ROOTR (21, ROOTR (3) 

155  FORMAT(1HO,2X7H1/TH1  =E14. 6 , 7X7H1/TH2  =E14.6,7X7H1/TH3  =E14.6) 
104  WRITE  (6,13>AH,BH,CH,0H 

13  FORMAT! 1H0,2X4HAH  =E14«6, 5X4HBH  =£14. 6, 5X4MCH  =E14.6, 

15X4H0M  =E14.6> 

00  146  11=1,5 
RR(II )  =  Q • 0 
146  RI (II ) =8*0 

C  VERTICAL  ACCELERATION  NUMERATOR 

IF(ALX.EQ.O.O)  GO  TO  109 
NRITE  (6,308) 

308  F  ORMAT  f 1H0,  15X4 OH VERTICAL  ACCELERATION  PER  OELTA  ELEVATOR) 

A A=-ALX*  A1 ♦ AW 

AB=-ALX*BT*9W-U*AT 

AC=-ALX*CT*CW-U*BT 

AO=-U*CT>DW 

A7(1)=AA 

A  Z(2) =A  B 

AZ(3)=AC 

AZ(4)=A0 

N  =  3 

IF(AZIl) .NE.0.0)  GO  TO  159 
A  Z (1)  =  AZ ( 2 ) 

A  Z (2)  =  AZ ( 3 ) 

A  Z (3)  =  AZ ( 4 ) 

I F ( A Z ( 1 ) .EQ.O .0)  GO  TO  160 
N  =  2 

159  CALL  DNULR  ( AZ, N, RTR, RT I ) 

WRITE  (6,401) 

WRITE (6,18) (RTR (IS ,RTI(I) ,1=1, N) 

DO  900  1=1, N 
RR(I)=-RTR( I) 

900  RI(I)=-RTI(I> 

IF(l.E-2-ABS(RI(l)»  )  61,6  2,62 

61  WA1=SQRT(RP(1»**2^RI (1)**2) 

Z  =  RR ( 1 ) /WA 1 

I F (N. EQ*  2 ) GO  TO  164 
WPITE  (6,63) Z,WA1,RR(3) 

63  F  CRMAT ( 1HQ,2X5H7AZ  =E14.6,7X5HWAZ  =E14.6,7X«H1/TAZ1  =E14.6) 

GO  TO  36 

62  IF(N.EQ.2)G0  TO  166 
IF(l.E-2-A0S(RI(2)) ) 64,68,68 

64  WA2=SQRT(RR(2)**2*RI (2) **2) 

Z=  RR ( 2 ) /WA  2 

WRITE  (6,631Z,WA2,RR(1) 

GO  TO  86 

164  WRITE(6,165) Z , WA1 

165  FORMAT( 1H0,2X5HZAZ  =E14.6,7X5HWAZ  =E14.6) 

GO  TO  86 

166  WRITE (6,167)RR(1) ,RR (2) 

167  FORMAT (1H0, 2X8H1/TAZ1  =E14. 6 , 7X8H1/TAZ2  =E14.6) 

GO  TO  86 


005480 

005490 

005500 

005510 

005520 

005530 

005540 

005550 

005560 

005570 

005580 

005590 

005600 

005610 

005620 

005630 

005640 

005650 

005660 

005670 

005680 

005690 

005700 

005710 

005720 

005730 

005740 

005750 

005760 

005770 

005780 

005790 

005800 

005810 

005820 

005830 

035840 

005850 

005860 

005870 

005880 

005890 

005900 

005910 

005920 

005930 

005940 

005950 

005960 

005970 

005980 

005990 

006000 

006010 

006020 

006030 

006040 

006050 

006060 

006070 


92 


AFFDL-TR-78-203 


LONGITUDINAL  PROGRAM  LISTING 


160  RR(1)  =  AO/AC 

WRITE 16*1 68 IRR(1I 
168  FORMAT! 1H0,2X7H1/TAZ  =E14.6) 

GO  TO  86 

68  WRITE  (6,71)RR(i) ,RR(2) ,RR!3) 

71  FORMATdHO,  2X8H1/TAZ1  =E14.  6. 7X8H1/TAZ2  =  E14 .6*  7X6H1/TAZ3  =E14.6) 
86  WRITE  (6,144) AA ,AB,AC,AD 

144  F  ORMA  T(1H0*2X4HAA  =E14.6,7X4HBA  =£14 . 6 * 7X4HC A  =E14.6, 7X4H0A  *E14. 
1» 

00  147  11*1,5 
RR(  II ) =0 • 0 
147  R I (II )  =  0.0 

109  IFU1.EQ.1.  ANO.  JJXX.EQ.1JGO  TO  321 
IF!Jl.EQ.i)GO  TO  100 
C  THRUST 

XO=XOT 
ZO=ZOT 
AHD=AMOT 

38  IFIXOT.EQ.O.. ANO. ZOT. EQ. 0 . . ANO. AMOT . EQ. O . )  GO  TO  100 
Jl=l 

WRITE (6*28) RUN 

28  FORMAT! 1H1,2X,8HRUN  NO.  A3,5X22HTHRUST  NUMERATOR  ROOTS) 

GO  TO  44 

321  WPITE(6,322)RUN 

322  FORMAT! 1H1,2X,8HRUN  NO.  A3, 5X*C0UPL ING  NUMERATOR  ROOTS*) 

00  323  11=1,5 

ROOTR ( 1 1) =0 • 

323  ROOTI ( I 1 ) =0 . 

WRITE (6* 324) 

324  FORMAT! 1H-,14X*THETA  TO  ELEVATOR,  LONGITUDINAL  VELOCITY  TO*, 

1*  THRUST*) 

ZNZM=Z9T*AM0E-ZDE*AMDT 

XMXM=XOT*AMOE-XOE*AMOT 

X7XZ=XOT*ZOE-XOE*ZOT 

A  TU  =XMXM«-XWO*ZMZH-ZWO*XMXM»AHWO*XZXZ 
BTU  =  XW*ZMZM-  ZW*XMXM*AMW*XZXZ 
T  TU  =8T  U/ATU 

I F ! ATU. EQ.O ..OR.BTU.EQ.O. )TTU=0. 

WRITE !6,325)TTU,ATU, BTU 

325  FORMAT! 1H0,3X*1/TTU  =*E14.6// 

14X5HATU  *E14. 6,5X5HBTU  =E14. 6///15X , 

2*  NORMAL  VELOCITY  TO  ELEVATOR,  LONGITUDINAL* 

3*  VELOCITY  TO  THRUST*) 

A  WU 1 1 )  =  XZXZ 

AWU(2)=U*XMXM-XQ*ZMZM+ZQ*XMXM-AMQ*XZXZ 

AWU(3)=GCG*ZMZM-GSG*XMXM 

IF!AWU(1)  .EQ.O, )GO  TO  326 

CALL  DMULR(AWU,2,ROOTRO,ROOTID) 

MM=1 
GO  TO  1 

3  IF(ABS(ROOTI (1) I.LT..OOODGO  TO  327 
WWU=SQRT (ROOTI! 1) **2*R00TR ( 1 ) *  *2 ) 

Z  WU=- ROOTR ! 1 ) /WWU 
WRITE (6,328) ZWU,WWU 

328  FORMAT! 1H8,3X,*ZWU  =*E14. 6, 5X* WWU  =*E14.6) 

GO  TO  329 

326  T  WU=  AWU (3)/AWU(2) 

I F ( A WU! 2 ) .EQ.O. DO. OR. AWU! 3) .EQ.0.O0)  TWU=0. 

WRITE !6, 330) TWU 

330  F ORMAT! 1H0, 3X*1/TWU  =*E14.6) 
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GO  TO  329 

327  ROOTR*l)=-ROOTR*l) 

ROOTR*2) =-ROOTR  *2) 

WRITE  16, 3 31) ROOTR *1) , ROOTR *2) 

331  FORMAT* 1H0,3X*1/TWU1  =  *£1 4, 6 , 5X * 1/T WU2  =*E14.6) 

329  WRITE *6, 3321  A WU II), A WU* 2) ,AWU*3) 

332  FORMAT*  1H0,  3X*AWU  =*014. 6,5X*BWU  =*D14. 6, 5 X*CWU  =*014.6/// 

11  5X*THET A  TO  ELEVATOR,  NORMAL  VELOCITY  TO  THRUST*) 

DO  333  11=1,5 
R OOTI ( 1 1 ) =0  • 

333  ROOTR *  1 1 ) =0  • 

ATW=ZMZM 

BTW=-XU*7MZM*7U*XMXM-AMU*XZXZ 
T  T  Wl=  BT  W/  AT  W 

TFCATW.EQ.O..OR .BTW. EQ- 0 . ) TTW1=0 . 

WRITE  16, 334) TTU1, ATW,0TW 

334  FORMAT* 1H0,3X*1/TTW  =*E14.6//4X*ATW  =*E 14 . 6, 5X* BT W  =• E14. 6///15X, 
1*S  TIMES  THETA  TO  ELEVATOR,  ALTITUOE  TO  THRUST*) 

A  TH= ♦ SG*  A  TU-CG*  AT  W 
BTH=  SG*BTU-CG*BTW 
TTH  =  BTH/ATH 

IFCATH. EQ.O..OR.BTH.EQ.O.)  TTH  =0. 

WRITE (6,335) TTH, ATH,BTH 

335  FORMAT* 1H0,3X*1/TTH  =*E14 .6//4X* ATH  =*E14 . 6, 5X* BTH  =*E14. 6///15X, 
1*S  TIMES  LONGITUDINAL  VELOCITY  TO  THRUST,  ALTITUOE  TO  ELEVATOR*) 

AUH*1»=-AWU*1)*CG 
AUH*2 )=-AWU*2)*CG*U*CG*ATU 
AUH*3)=-AWU( 3)*CG*U*CG*8TU 
IF*AUH*1) .EQ.O. )GO  TO  336 
CALL  OMULR* AUH, 2 , ROOTRO, ROOTI D) 

MM=2 
GO  TO  1 

4  IF*ABS*ROOTI*i)  )  .LT..O0ODGO  TO  33 7 
WUH=SQRT  (ROOTI*  1)**2*R0QTRU)**2) 

Z  UH= -ROOTR  *  1 ) /WUH 
WRITE (6 , 338) ZUH,WUH 

338  FORMAT* 1H0, 3X*ZUH  =*£14. 6,5X*WUH  =*E14.6) 

GO  TO  339 

336  TUH=AUH*3)/AUH*2) 

IF (AUH* 2) .EQ. 0. 00. OR. AUH *3) .EQ.O.OO)  TUH=0. 

WRITE*6,370)TUH 

370  FORMAT* 1H0, 3X*1/TUH  =*E14.6) 

GO  TO  339 

337  ROOTR*l)=-ROOTR*l) 

R  OOTR  *  2 ) =-ROOTR*2) 

WRITE  *6, 340) ROOTR *1) , ROOTR *2) 

340  FORMAT* 1H0, 3X*1/TUH1  =*E14. 6, 5X*1/TUH2  =*E14.6) 

339  WRITE *6, 341 ) AUH *  1 ) , AUH *  2 ) ,AUH*3) 

341  FORMAT* 1H0, 3X*AUH  =• D14. 6 , 5X *BUH  =*014. 6, 5X*CUH  =*014.6/// 

11 5X*S  TIMES  NORMAL  VELOCITY  TO  THRUST,  ALTITUDE  TO  ELEVATOR*) 

00  342  11=1,5 
ROOTR  *111=0  . 

342  R OOTI  *  1 1 )  =0  • 

AWH*1)=-AWU*1 )*SG 
AWHl2)=-AWU*2)*  SG*U*  AT W*CG 
AWH*3)=-AWU*3I*SG*U*BTW*CG 
IF(AWHtl) .EQ.O. )G0  TO  343 
CALL  OMULR* AWH, 2, ROOTRO, ROOTIO) 

MM=3 
GO  TO  1 


006680 

006690 

006700 

006710 

006720 

006730 

006740 

006750 

006760 

006770 

00678Q 

006790 

006800 

006810 

006820 

006830 

006840 

006850 

006860 

006870 

006880 

006890 

006900 

006910 

006920 

006930 

006940 

006950 

006960 

006970 

036980 

006990 

007000 

007010 

0C7020 

007030 

037040 

037050 

007063 

037070 

037080 

007090 

007100 

007110 

007120 

007130 

007140 

007150 

007160 

007170 

007180 

007190 

007200 

007210 

007223 

007230 

007240 

007250 

007260 

007270 
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5  IF! ABSIROOTIf  1!!.LT..0001!GO  TO  344 
WWH  =SQRTCROOTI(1!**2*ROOTRI1>**2) 

7WH=-ROOTRtt! /WWH 

WRITE (6, 345!  ZWH.WWH 

345  FORMAT! 1H0,3X*ZWH  **E14. 6, 5X*WWH  =*E14.6! 

GO  TO  346 

343  TWH  =  AWH( 31 /AWH(2) 

IF! AWH (21 .EQ.O.OQ.OR.AWHC31 .EQ.O.OO!  TWH=C . 

WRITE  *6*  347) TWH 

347  FORMAT! 1H0, 3X*1/TWH  =*E14. 6! 

GO  TO  346 

344  ROOTRtl>  =  -ROOTRU) 

ROOTR(2»=-ROOTR(2I 

WRITE !6,349!R00TR!l! ,R00TRC21 

349  FORMAT! \H0,3X*1/TWH1  =*E14. 6, 5X*1/T WH2  =*E14.6! 

346  WRITE !6, 346! (AWH! II, 1=1,3! 

348  FORMAT!  1H0,3X*AWH  =*014.6,5X*BWH  **014.  6,  5X*CWH  * *014 , 6///15X , 
1*S  TIMES  LONGITUDINAL  VELOCITY  TO  THRUST,  ACCELERATION  * 

2* TO  ELEVATOR*! 

00  351  11*1,5 
R  OOTR  !  1 1 )  *0  . 

350  ROOTI C III *0  « 

AUAZI1I*  AWU< II -ATU* ALX 
AUA2I21*  AWU<2)-8TU*ALX^U*ATU 
AUAZ! 31  *  AWUC3I-U*BTU 
IF!AUAZ(1!.EQ.O.!GO  TO  351 

CALL  DMULR! AU AZ ,2 , ROOTRO, ROOTIO ! 

MM*4 
GO  TO  1 

6  IFIA0SCROOTI !1!) ,LT. ,0031)GO  TO  352 
WUAZ  =  SQRT! ROOT  III! **2*R00TR 1 11**2! 

ZUAZ  =-ROOTI (ll/WUAZ 
WPITE(6,353) ZUAZ, WUAZ 

353  FORMAT! 1H0,3X*ZUAY  =*Ei4. 6,5X*WUAZ  **E14.6> 

GO  TO  354 

351  TUAZ  =AUAZC3)/AUAZ(2) 

IF(AUAZ!2!.EQ.O.DQ.OR.AUA7!3> .EQ.O.OO!  TUAZ=Oo 
WRITE (6,355! TUAZ 

355  FORMAT!  1H0,3X*1/T'JAZ  =*E14.6! 

GO  TO  354 

352  R  OOTR (1I=-R00TR(1I 
R  OOTR (2!=-R00TR(2! 

WRITE (6,356!R00TR 111 ,R00TR(2» 

356  FORMAT! 1H0, 3X*1/TUAZ1  **E14 . 6 ,5X*i/TU AY Z  =*E14.6! 

354  WRITEC6, 357! (AUAZCI! ,1*1,3! 

357  FORMAT! 1H0,3X*AUAZ  **014. 6, 5X* BUAZ  =*014, 6, 5X*CUA Z  =*014.61 
JJXX=0 

GO  TO  100 

1  DO  2  1*1,3 
ROOTR!I!=ROOTROm 

2  ROOTI ! I )  =  ROOTIO ! I ) 

GO  TO  ( 3, 4,5, 6) , MM 
END 

SUBROUTINE  CMNG!J> 

C  OMMON/B/XD ,XU,XQvZO,ZU,ZQ,  MO,  MU,  MQ, U, GSG,GCG, AW, B W,CW,0W, 

IS ,RHO,G,GWT,ZT, TOT, XI, CL, CL A, CL  AO ,CLQ,CLOE ,CLM,CD  ,COA ,GDAD,CDQ , 
2CD0E,C0H,CMAtCMA0,CM0,CM0E,CMM, ALPHA,GAMA,CN,CNA,CNAO,CNQ,CNOE, 
3CNM,C.X,CX  A,  CXAO,CXQ,CXOE,CXM,XW,ZM,XWD,ZWO,  LA  ,VE, 

4  MAC, MACH, IVY, LX, MW,  MWO, AL A*  NZA ,CMT 

RFAL  MO, MU, MO, MAC, MACH, IYY, LX, MW, MWO, LA  ,NZA 


••7280 

007290 

•07300 

007310 

007320 

•07330 

007340 

007350 

007360 

007370 

007380 

037390 

007400 

007410 

007420 

007430 

QQ7440 

007450 

007460 

007470 

007480 

007490 

007500 

007510 

007520 

007530 

007540 

007550 

007560 

007570 

007580 

007590 

007600 

007610 

007620 

007630 

007640 

007650 

007660 

007670 

007680 

007690 

007700 

007710 

007720 

007730 

007740 

007750 

007760 

007770 

007780 

007790 

007800 

00781Q 

007820 

007830 

007840 

007850 

•07660 

007870 
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C 


NAMELIST/CHANGE/S.NAC,  U,RHO»G,GNT  *IYY,ZT,LX,TOT,XI,CLA,CLAO, 

A  CLQ, CL, CLOE,CLH, CO, COA, GOAD, COQ, CODE ,CDH,CHT,CHA, CHAD, CMQ, 

8  CMOEtCMH, ALPHA,GAMA,CN,CNA,CNAfl,CNQ,CNDE,CNM,CX,CXA,CXAO, 

G  CXQ,CXOE,CXM,XU,ZU,MU,XH,ZW,MW,XWD,ZWO,MWO,  XQ, ZQ,MQ,XO,ZD, 

0  MO, VE, LA, NZA, TEST, MACH, CMCL 
CMCL=99. 

IFfJ.EOcS)  RE  AO (5, CHANGE) 

IF( J.EQ,5.AN0.CMCL.NE.99.)CMA=CLA*CMCL 

IFU.EQ.5)  RETURN 

DTR=57.  295779 

C t A=CLA/OTR 

COA=COA/OTR 

cma=cma/otr 

CXA=CXA/DTR 

CZA=CZA/DTR 

C  LOE=  CL  OE/DTR 

COOE=COOE/OTR 

CMOE=CMOE/DTR 

CXOE=CX  OE/DTR 

CZOE  =  CZOE/OTR 

IFIJ.EQ.7)  READ  C5 , CHANGE) 

IFCJ.EQ.7  .AN0.CMCL.NE.99.)CMA=CLA*CMCL 

IF< J.EQ  ,7)  RETURN 

CLAO= CL  AO/OTR 

COAO=COAO/OTR 

CWAD= CM AO/OTR 

C  XAQ=CX  AO/OTR 

C 7 AO=CZ AO/OTR 

CLQ=CLQ/OTR 

COQ=COQ/OTR 

CMQ=CMQ/OTR 

CXQ=CXO/OTR 

CZQ=CZQ/DTR 

I F (CMCL •  NE# 99 • ) CM  A=CL  A* CMCL 
PEAO(5, CHANGE! 

RETURN 

END 

SUBROUTINE  r ROCK  ( ZN , WN, ROOTRl , ROOT R2 » WNC > 

THIS  SUBROUTINE  USES  SUBROUTINE  OMUL R 
OOU3LE  PRECISION  RTR,RTI ,  W 
DIMENSION  W  ( 4  )  »  RR  ( 5  ) , P I ( 5 ) 

COMMON  M ,RR,RI ,XKON,WNLA, ALAHN,  LL 
COMMON  /A/RTR( 5) ,RTI ( 5) 

COMMON/ B/XO,XU,XQ,zn , ZU, ZQ , AMO, AMU, AMQ , U, GSG ,GCG , AW,BW,CW, DM, 

IS ,PHO,G,GWT, ZT, TOT,XI,CL,CLA,CL AO,CLQ,CLOE ,GLM ,CO  ,COA ,COAO,COQ , 
2C POE, COM, CM  A, CM  AO , C  MQ , CM0E , C  MM, ALPH A , G AMA , CN ,CN A , CNAO ,CNQ ,CNOE , 
3C  NM,C  X, CX  A, CXAO,CXO,CXOE,CXM,XW, ZH, XHO,ZWD, ALA  , VE, 

4  ZMAC,AM,AIY,ALX,AMH,AMMD, ALAI ,ANZA,CMO 
A W=4ZO 
8  X  B*  ZU 

1  ♦70* ( - AMO-XU) 

2  ♦AMO* (U*  ZQ) 

CM=^XO*  C (U^ZO) *  AMU-AMQ*ZU) 

1*Z0*< A MO* XU- XO* AMU) 

2 ♦AMO* (?U*XQ-GSG-tU^ZQ) *XU) 

0 W=-XO*  AMU*  GSG 
1*70*AMU*GCG 
2* AM0* (XU*GSG-7U*GCG) 

W  (1!  =  AW 
W  (21  =BW 


007600 
007690 
007900 
007910 
007920 
007930 
007940 
007950 
007960 
007970 
007980 
007990 
008C00 
008010 
006020 
008030 
008040 
008050 
006060 
006070 
008080 
00609U 
008100 
006110 
006120 
008130 
008140 
008150 
008160 
008170 
008180 
006190 
QQ820Q 
008210 
008220 
008230 
0  J  6240 
038250 
008260 
008270 
008200 
008290 
Q08300 
008310 
008320 
00833C 
006340 
008350 
006360 
008370 
000380 
006390 
008400 
000410 
008420 
008430 
000440 
008453 
008460 
006470 
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W  ( 3 ) =CW  008480 

W  (4)  =  DM  008490 

N=3  008500 

CALL  OHULR  (W , N , RTR ,RTI »  00851Q 

00  800  1=1* N  008520 

RR(II =RTR (I |  008530 

800  Rill) =RTI (I)  008540 

IFfl.E-4-ABSCRI <1> ) I  54,55,55  00  8550 

54  WW1=SQRT!RR«1»**2*RI<1>**2>  008560 

26  IFCWW1*.4*WW1.LT.WN>  GO  TO  23  008570 

IF(WW1-.4*WW1.LT.WN1  GO  TO  20  008580 

23  WNLA  =  WN/ALA  008590 

AL ANN  =  l./WNLA  QQ66Q0 

LL  =  1  008610 

WRITE  C6, 211  ZN*VJN,ROOT«1,ROOTR2,WnC  008620 

21  FORMAT! 1HQ,2X5HZSP  =614.6 ,5X5HWSP  =E14.6,8H  RAO/SEC, 5X7H1/TP1  =E14008630 

1. 6,5X7H1/TP2  =E14.6/27X  5H  =El4.6fllH  CYCLES/SEC*  008640 

2/ 1HQ, 17HSHORT  PERIOO  NOOE)  008650 

25  PER  =  XKON/«WN*SQRTIl.-ABStZNI**2)>  008660 

TTOl  =  .69315/<ABS(ZN)*WN)  008670 

TT02  =  2. 30259/CABSCZN»*MN)  008680 

C  TOi=  TT  01 /PER  008690 

CT02=TT  02/PER  008700 

CT03= 1#  O /CTOl  008710 

C  T04= i.  0/CTO2  008720 

TZW  =  2.*ZN*WN  008730 

WNOS  =  ( WNI 2  008740 

IFIZN1  118,110,402  008750 

402  WRITE  (6,124iPER,TT01,TT02,CTOi*CT02,CT03,CT04,TZW#WNOS  008760 

124  FORMAT  (1H0 , 11X8HPERIOO  =E13.5,  6X19HTIM00 8770 

IE  TO  HALF  AMP.  =E13. 5* 16X24HTIHE  TO  ONE  TENTH  AMP.  =E13.5/1H  ,36X2008780 
21 HCYCLES  TO  HALF  AMP.  =E13.5* 14X26HCY CLES  TO  ONE  TENTH  AMP.  =E13. 5008790 
3/28X30HONE  OVER  CYCLES  TO  HALF  AMP.  =E13. 5, 5XJ5H0NE  OVER  CYCLES  T0008800 

4  ONE  TENTH  AMP.  =E13. 5/50 X8H2*Z*WN  =E13.5,35X5HWSQ  =E13.5)  008810 

RETURN  008820 

110  WRITE  «6,149)PER,TT01,TT02*Cr01,CT02  00863C 

149  FORMAT  ( 1H0, 11X8HPERI00  =£13.5,008840 

1  4X21HT1ME  TO  OOUBLE  AMP.  =E13. 5, 16X24HTIME  TO  TEN  TIMES  AMP.  =£13008850 

2.5/1H  ,34X2  3H CYCLES  TO  OOUBLE  AMP.  =£13.5, 14X26 HCYCLES  TO  TEN  TIME008860 

3S  AMP,  =E13.5>  008870 

RETURN  00  8858 

20  WRITE (6,24)  ZN, WN,ROOTRl , ROOTR2, WNC  008890 

24  FOPMAT( 1H0,2X4HZP  =£ 14. 6, 5X4HWP  =£14.6,8H  RAO/SEC,  008900 

15X8H1/TSP1  =E14.6,5X8H1/TSP2  =E14.6/25X5H  =E14.6,11M  CVCLES/SECOO 8910 

2/1H0, 16HL0NG  PERIOO  MOOEI  008920 

GO  TO  25  008930 

55  IFU.E-4-ABS(RI  <2»>>  57,58,58  008940 

57  WW1=SQRT<RR<2»**2*RI I2>**2>  008950 

GO  TO  26  088960 

58  GO  TO  23  008970 

END  008980 

SUBROUTINE  DHULR  « COE , N1 , ROOTR, ROOTI )  088990 

C  009000 

C  009010 

c  089030 

C  POLYNOMIAL  ROOT  FINOER  SUBROUTINE  ....  009040 

C  009050 

C  ITERATIVE  METHOO  FOR  POLYNOMIAL  EQUATIONS  ....  009060 

C  009070 
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C  THIS  METHOD  APPROXIMATES  THE  FUNCTION  F I Zl  BY  A  QUADRATIC 
C  WHICH  MAY  *  I N  GENERAL,  HAVE  COMPLEX  COEFFICIENTS  ANO  OOES  NOT 
C  REQUIRE  A  KNOWLECGE  OF  THE  DERIVATIVE  OF  FCZ)  THOUGH 
C  THE  FUNCTION  FCZ)  MUST  BE  EVALUATED  ONCE  PER  ITERATION  .... 

C 

C  THIS  SUBROUTINE  FINOS  REAL  AND  COMPLEX  ROOTS  OF  A  POLYNOMIAL 
C  WITH  REAL  COEFFICIENTS  .... 

C 

C 

C  USE  OF  MULLER  SUBROUTINE  .... 

C  1.  CALL  OMULR  (COE ,N1 ,ROOTR, ROOTI )  .... 

C  2.  COE  IS  THE  TAG  OF  THE  ARRAY  OF  COEFFICIENTS. 

C  THE  COEFFICIENTS  MUST  8E  ORDEREO  FROM  HIGHEST  DEGREE 

C  TO  LOWEST  DEGREE  • 

C  3.  HI  IS  DEGREE  OF  THE  POLYNOMIAL  . 

C  A.  POOTR  IS  THE  TAG  OF  THE  ARRAY  WHERE  THE  REAL  PARTS 
C  OF  THE  COMPLEX  ROOTS  ARE  STORED  . 

C  5.  ROOTI  IS  THE  TAG  OF  THE  ARRAY  WHERE  THE  IMAGINARY 
C  PARTS  OF  THE  COMPLEX  ROOTS  ARE  STOREO  •••• 

C 

C  ALL  ARITHMETIC  IS  IN  THE  COMPLEX  MOOE  .... 

C  THEREFORE  UNOER-FLOW  IS  NORMAL  FOR  REAL  ROOTS  .... 

C 

C  MULTIPLE  ROOTS  DECREASES  ACCURACY  OF  THIS  SUBROUTINE  • 

C  WHEN  MULTIPLICITY  IS  FOUR  THE  ACCURACY  DECREASES  TO 
C  ABOUT  TWO  PLACES  •••• 

C 

C  RUNNING  TIME  IS  APPROXIMATELY  PROPORTIONAL  TO 
C  OEGREE  SOUAREO  DIVIDEO  BY  TWENTY  .... 

C  FOR  OEGREE  ELEVEN  IT  TAKES  SIX  SECONDS  .... 

C 

C 

C 

c 


DOUBLE  PRECISION  ROOTR.ROOT I , A XR , AXI , ALP1R * ALP1 I , TEM 
OOUBLE  PRECISION  BFT1R , 0ET1 I , AL P2R, ALP2I , Bf T 2R , BE T2I 
DOUBLE  PRECISION  TEMR ,TEMIf ALP3R, ALP3I , BET3R,8ET3I 
OOUBLE  PRECISION  AL P4R, ALP4 I , TEM1 , TEM? , HELL , BELL 
DOUBLE  PRECISION  TE 1 , TE 2 , TE 3, TE4 , TE5 , TE6, T E 7, TE 8 , TE9, TE 10 
OOUBLE  PRECISION  TE 1 1 , T£1 2, TE13 , TE14 , TE 15 , TE16 , OE 15 , DE16 , COE 
C 

DIMENSION  COF  Cl)  ,ROOTR(  1)  , ROOTI  CD 

C 

N2=N1 ♦ 1 
N  4=0 
I*N1*1 

19  I F (COE (1)19,7,9 

/  N4  =  N4  +  1 

R00TRCN4) =0.000 
ROOTI CN4) =0.000 
1  =  1-1 

IFCN4-N1) 19,37,19 

9  CONTINUE 
C 

10  A  XR=0 .800 
A  XI=0 .000 
L  =  1 


009080 
009090 
009100 
009110 
009120 
009130 
009140 
009150 
009160 
009170 
009180 
009190 
009200 
009210 
009220 
009230 
OC  9240 
009250 
009260 
009270 
009280 
009290 
009300 
Q09310 
009320 
009330 
009340 
009350 
009360 
009370 
009380 
009390 
0094J0 
009410 
009420 
009430 
009440 
009450 
009460 
009470 
009480 
009490 
009500 
009510 
099520 
009530 
009540 
009550 
009560 
009570 
009580 
009590 
009600 
009610 
009620 
009630 
009640 
009650 
009660 
009670 
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N3=l 

009660 

ALPlRsAXR 

009690 

ALPlIsAXI 

009790 

Msl 

009710 

GO  TO  99 

009720 

c 

009730 

11 

BETIRsTEMR 

009740 

BETIIsTEMI 

009750 

AXR=0.6500 

009760 

ALP2R=AXR 

009770 

ALP2I=AXI 

009780 

M=2 

009790 

GO  TO  99 

009800 

r 

009810 

12 

BET2R=TEMR 

009620 

BET2I=TEMI 

009830 

A  XR=0 • 9D0 

009640 

ALP3R=A  XR 

009650 

ALP3I=AXI 

009860 

M= 3 

009670 

GO  TO  99 

009660 

C 

009690 

13 

BET3R=TENR 

009900 

BET3I=TEMI 

009910 

14 

TE1=ALP1R-ALP3R 

009920 

”T  E2S  ALP  11-ALP3I 

009930 

TE5=ALP3R-ALP2R 

009940 

TE6=ALP3I-ALP2I 

009950 

TEM=TE5*TE5*TE6*TE6 

009960 

TE3=(TE1*T£5#TE2*TE6)/TEM 

009970 

TE4s<TE2*TE5-TEl*T£6> /TEM 

009980 

TE7=TE3*1.000 

009990 

TF9=TE3*TE3-TE4*TE4 

QiOQQQ 

TE1Q=2.000*TE3*TE4 

010010 

DE15=TE7*8ET3*?-TE4*BET3I 

010020 

0E16=TE7*8ET3I*TE4*BET3R 

010030 

TE11=TE3*BET2R-TE4*BET2I^BET1R-0E15 

010040 

TEl2=TE3*1Er2If TE4*B£T2RfB£TlI-DEl6 

010050 

TE7=TE9-1.00C 

0 10C60 

TElsTE9*BET2R-TE10*BET2I 

010070 

TE2=TE9*BET2I+TF10*BET2R 

010060 

TE13=TEl-BETlP-TE7*3ET3R*TE10*BET3I 

010090 

T£l4=TE2-BETlI-T£7*e£T3I-TElO*8ET3R 

010100 

TE15=0E15*TE3-0E16*T£4 

010110 

TE16=DE15*TE4»0E16*TE3 

010120 

TE1=TE13*TE13-TE14*TE14-4.000*<TE11*TE15-TE12*TEI6» 

010130 

TE2*?,090*TE13*TE14-4«ODOMTE12*TE15*TE11*TE16) 

010140 

TFM=DSQRTCTE1*TE14TE2*TE2> 

01C150 

IF(TE1>  113,  113,112 

010160 

113 

TF4=OSQRT(0.5O0*( TEM-TE1>> 

010170 

IF(TE4.NE.0.O0)Tl3=0.5OU*TE2/TE4 

010160 

IFITE4. EQ.O.OO) TE3=0.00 

010190 

GO  TO  111 

010200 

C 

010210 

112 

TE3=DSQRTC0 •500*  CTEM^TEll  > 

010220 

IFCTE2I 110, 200,200 

010230 

110 

TF3s-TE3 

010240 

200 

IFITE3.NE.0 .O0> TE4=0 . 500* TE2/TE3 

010250 

IF(TE3.EO.O .00>TE4=0.00 

010260 

111 

T  F7=T£1 3*  TE3 

010270 

99 


AFFDL-TR-78-203 


LONGITUOINAL  PROGRAM  LISTING 


TE8=TE14*TE4 

010280 

T  E9=TE1 3-TE3 

010290 

TE10=TE14-TE4 

010  300 

TF1=2.000*TE15 

010310 

TE2=2.0D0*TE16 

010320 

I  FCTE7*TE7>TE8*TE8-TE9*TE9-TE10*T£10>  204,204,20  5 

010  330 

204 

TE7=TE9 

010340 

TE8=TE10 

010350 

205 

TEM-TE7*TE7*TE8*TE8 

0 1 0  36  C 

TE3=CTE1*TE7>TE2*TE8)/TEH 

0 10  37  0 

TE4=CTE2*TE7-TE1*TE8) /TEH 

010380 

AXR=ALP3R»TE3*TE5-TE4*TF6 

010390 

AXI=ALP3I*TE3*TF6>TE4*TE5 

010400 

ALP4R=AXR 

010410 

ALP4I=AXI 

010420 

M  =  4 

010430 

GO  TO  99 

010440 

C 

010450 

15 

N  6=1 

010460 

38 

T  F  IDA  BS  <  HELL ) ♦DABSCBELL) -1. 0D-20) 18,  18,  16 

010480 

16 

TE7=0ABS< ALP3R-AXR) ♦OABS( ALP3I-AXI) 

010490 

IFITE7/C OABSC  AXRI ♦DABS IAXIH -1.0 0-71 18,18,17 

010500 

IT 

N3*N3>1 

010520 

ALP1R=  AL  P  2R 

010530 

ALP1I=ALP2T 

010540 

ALP2R=ALP3R 

010550 

ALP2I  =  ALP3I 

010560 

ALP3R=ALP4R 

010570 

ALP3I=ALP4I 

010580 

BET 1R=BET2P 

0 1C  590 

BETH  =8ET  21 

010600 

BET2R=BET3R 

Q 10610 

BET2I=BET1T 

010620 

PET3R=TEMR 

010630 

BFT3I=TEMI 

010640 

TF(N3-100>14, 18,18 

010650 

18 

N4=N4*1 

010660 

R00TRCN4) =ALP4R 

010670 

ROOT I (N4)=ALP4I 

01C680 

N  3=0 

01C690 

41 

TFIN4-N1  )  30  ,37, 37 

010700 

37 

RFTURN 

010710 

C  *  •  *  1 

30 

TF<OARS(ROOTI (N4» 1-1.00-5) 10,10,31 

0  1C  730 

31 

GO  TO  < 32,10) ,L 

010740 

32 

AXR=ALP1R 

010750 

AXI=-ALP1I 

010760 

aipii=- alpi: 

010770 

M  =  5 

010780 

GO  TO  99 

010790 

33 

BET1R=TEMR 

010800 

BFT1I =TFMI 

010810 

A  XR=  A  L°2P 

0 1 C  820 

A  XI=- AL°2 I 

010830 

A  LP2 1  =  -  AL  p?  I 

0 1 C  840 

H=6 

010850 

GO  TO  99 

010860 

c 

010870 

100 


J 


LONGITUOINAL  PROGRA H  LISTING 


34 

9ET2R=TEMR 

010860 

BET2I=TENI 

010890 

AXR=ALP3R 

010900 

AXI=-ALP3l 

010910 

ALP3I-- ALP3I 

010920 

L  =2 

010930 

W  =  3 

010940 

99 

TEHR=COE(l) 

01C950 

TEMl=0.0D0 

010960 

DO  100  1=1, N1 

010970 

tei=temr*axr-tehi*axi 

010980 

temi=temi*axr*tehr*axi 

010990 

100 

Tf HR=  TE1*C0E(I*1) 

011000 

HEU.=TEHR 

011010 

BELL=TEHI 

011020 

42 

IF (N4) 102,103,102 

011030 

102 

DO  101  1=1, N4 

Q11G4Q 

T£M1=  4XR-ROQTR  < I ) 

011050 

TEH2-  AXI-ROOTKII 

011060 

TE1=TEH1*TEN1 »TEN2*T£M2 

0 1107 0 

T £2=  t  TEHR  *T  EH 1  *TEHI  MEH2)  /TE1 

011060 

TEHI=(TEHI*TEH1-TENR*TEN2)/TE1 

011090 

101 

TEMR=TE2 

011100 

103 

GOTO  111,12,13,15,33,34) ,H 

011110 

ENO 

011120 

AFFDL-TR-78-203 


longitudinal  PROGRAM  data 


10G15ATR 

ANS PORT  AIRCRAFT  H=iC,COoFT  C 6=26J 

Ms.  6 

r Mb/ 9/17/00 

LONGl 5A1 

49CG. 
350G0C  . 

24.1  .77  7*+5. 

190G00C0.  2.0  3  C. 

. G0C5973 

32.051 

lOnGI 5A£ 
L0UG15A3 

.U37 

6 .  6.3 

.  261 

LONGl 5Aw 

.G25 

•  0  3 

.0031 

L0NG15A5 

1.3 

-2.  -5.1  -2C.3 

-I.Oh 

-  *  01 

LONGl 5Ac 
LUNG15A7 

101111MEOIUM 

FIGHTER, 

SEA  LEVEL, 

FOREWARO  CG  , 

FLAPS=3Q,  I.wVSTAlL 

lUNGIIH 

25  0. 

9.0 

.224 

250  . 

•  C  0  23  7  7  32.1/* 

L0NG1112 

22CC0. 

550C0. 

LONGll 1 3 

1.25 

.0  64 

.  C  5  2 

LONGlll^ 

.ce 

LONGll 15 

-.041 

-.06 

-.1 

-.025 

LONGl 1 1 6 

9.5 

-3. 

LONGl 117 

6  0C11 ATRAN5  PORT  AIRCRAFT  H=4C,CC0FT  CG  =  25C  H  =  , 

.77 

jMG  9/7 /o6 

LONGl 5A1 

4900. 

24.1  .77  745. 

.0005673 

32.051 

L0NG15A2 

350  C  0  3  • 

19000000.  2.0  30. 

lCGtu . 

2. 

LONG15A3 

.*27 

6.  6.3 

.251 

LONGl 5A« 

.075 

.03 

.0031 

LONG 15 A5 

.00417 

1.3 

-2.  -5.1  -20.3 

-I.Ch 

-.01 

LONGl  i>Ab 
LONG15A7 

102 


TRANSPORT  AIRCRAFT  H  =  10.000FT  CG=25C  M-.6  TMG/9/1F/66 


AFfat-TR-78-203 
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AFFDL-TR-78-203 


RUN  NO.  1  5A  ELEVATOR  NUMERATOR  CHARACTERISTICS 


THETA  PER  CONTROL  DEFLECTION 
ROOTS  (COMPLEX  FORM) 

-.11570-01  0. 

-.5X870*00  0* 

1/TT1  =  .115659E-01  1/TT2  =  ,538702E*00 

AT  =  -.105144E*01  8T  =  -,578575E*00  CT  =  -.6551Q9E-Q2 


LONGITUDINAL  VELOCITY  PER  CONTROL  OEFLECTION 
ROOTS  (COMPLEX  FORM) 

-.36240*01  0. 

.69130*01  0. 

If TUI  =  .3 6? 36 9E *01  1/TU2  =  -.691252E*01 

AU  *0.  8U  =  -.733392E*00  CU  =  .241200E*01  OU  =  .183706£*02 


NORMAL  VELOCITY  PER  CONTROL  DEFLECTION 
ROOTS  (COMPLEX  FORM) 

-.25280-02  -.60700-01 
-.252*0-02  .60700-01 
-.42660*02  .2060D-45 


Zw  = 

. 41605  5E- 0 1 

WM  = 

. 607571 E-Ol 

1/TW  s  .426619E*02 

AM  = 

- . 183563E *  0  2 

BM  = 

- • 7832  08E*  03 

CM  =  - • 40  272 1E*Q 1 

OM  =  -.269081E*01 

ALTITUDE  RATE  PER  CONTROL  OEFLECTION 
ROOTS  (COMPLEX  FORM) 

-.46600-02  0. 

.48290*01  0. 

-.48180*01  0. 

1/TH1  =  .465971E-02  1/TH2  =  -.482863E*01  1/TH3  =  .481758E*01 

AH  =  .181563E*02  BH  =  -.117211E*00  CH  =  -.427G11E*0 3  DH  =  -.198975E*01 

VFRTICAL  ACCELERATION  PER  OELTA  ELEVATOR 
ROOTS  (COMPLEX  FORM) 

-.46580-02  0. 

-.66020*00  .56530*01 

-.66020*00  -.56530*01 

ZA7  =  •  11 60 10  E ♦ 00  WAZ  =  #569123E*01  1/TAZ1  =  .465845E-02 

AA  =  • 131 870E* 0  2  BA  =  .  174745E*02  CA  *  .427208E*03  OA  =  .198975E*01 


ROOTS  OF  a/C  LONGITUDINAL  TRANSFER  FUNCTIONS 


AFFDL-TR-78-203 
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COEFF iciemts 


AFFDL-TR-78-203 


PUN  NO. 


ZT  = 
AT  = 


ZU  = 
AU  = 


ZW  - 

AW  = 


ZH  = 
AH  = 


111  ELEVATOR  NUMERATOR  CHARACTERISTICS 


THETA  PER  CONTROL  OE ELECT I ON 
ROOTS  (COMPLEX  FORM) 


.57340-01 

.57340-01 

-.18010*00 

.18010*00 

•303326E+00 

WT  =  • 189J41E*0Q 

•42918TE*01 

8T  =  .49220  5E*00 

CT  =  -.153376E*00 

LONGITUOINAL  VELOCITY  PER  CONTROL 
ROOTS  (COMPLEX  F CRM) 

-.60580*00  -.11520*01 

-.60580*00  .11520*01 

OEFLECTION 

4654905*00 

WU  =  • 130 135E*  0 1 

0.  BU  =  -.10Q675E*02  CU  =  -.133117E*02  DU  =  -.186074E*Q2 


NORMAL  VELOCITY  PER  CONTROL  DEFLECTION 
ROOTS  (COMPLEX  FORM) 

-.85690-02  -.18470*00 

-.85690-02  • 1 8470*00 

-.13760*02  .87870-45 

. 4S3316E- C 1  WW  =  .184945E*0Q  1/TW  =  .137578E*C2 

- . 809147E* 0  2  8W  =  -.11146QE*04  CW  =  -.2l8454E*02  OW  =  -.380771E*02 


ALTITUOE  RATE  PER  CONTROL  OEFLECTION 


ROOTS  (COMPLEX 

FORM) 

-.48710-02 

.50950-21 

-.25840*00 

-.13150*01 

-.25840*00 

.13150*01 

192738E*  00 

WH  =  • 1340  46E*  01 

1/TH3  =  .407080E-02 

808038E  *0  2 

BH  =  • 42 1462£*0  2 

CH  =  . 145395E*03  OH  = 

.707197E*00 
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ROOTS  a/C  LONGITUDINAL  TRANSFER  FUNCTIONS 


AFFDL-TR-78-203 


•  •  •  • 
nnion 

<4 

1 

II  II  N  || 

II 

O  *H  X  X 

X 

X  J  o  X 

o  o  a 

•t  -4 

a 

O  D  O 

o 

I  4  » 

* 

UJ  UI  Ui 

UJ 

DOO 

o 

Woo 

a 

o  -4 

J- 

®  O  IP 

o 

IP  »i  PJO 

*4 

1 

II  II  II  II 

II 

o  F-  Ui  UI 

UJ 

X  O  O  O  o 

o  o  o 

MHO 

*4 

o  o  o 

O 

4  4* 

Ui  Ui  UJ 

UJ 

a  a  a 

o 

<=>  o  o 

CJ 

in  o  o 

K> 

jaw 

o 

•  •  •  • 

0 

9 

£ 

tvj 

1 

ii  ii  ii  i< 

II 

3X00 

O 

-j  -J  a 

X 

o  o  o 

•4  O 

a 

CJ  O 

o 

1  4 

UI  Ui 

i*i 

o  o 

o 

o  o 

» 

«=>  o 

o 

IN. 

*4 

N  NOO 

in 

• 

II  II  II  II 

ii 

X  »-  o  o  © 

O  N  *i  <1 

■a  O 

r  o  o  o 

4  V  C>  (VJ 

o 

a  u  a  a 

o 

4*41 

* 

ui  UI  UJ  Ui 

Ui 

o  u  u  o 

o 

a  c/  o  o 

<4000 

o 

J  (T  o  a 

o 

IN  H  v£  rw 

CJ  C 

1 

II  l«  II  It 

,1  n 

a  ►  «3  «3 

<r  d 

■a  X  j  o 

r  r 

J  HUU 

o  « 

o 

(W  IP  rl  PJ 

W  O 

C'  O  C  o 

e  r 

4*11 

l  * 

UJ  UI  UJ  u 

Ui  UJ 

o  o  o  c* 

o  o 

O  O  CJ  o 

CJ  o 

o  e>  k  o 

cr  ip  k  ip 

T*  W 

S  W  ^  K 

l‘  ff  II  II 

If  If 

UJ  UJ  UJ  UJ  UJ 
NlA  O' 

«5  O  in  if.  U> 
■*  *4  O'  &  \G 
in  e»  «o  imt 


o.  a  a.  v)  * 
rxr  as 


♦  ♦  ♦  • 
UJ  UJ  UJ  UJ 

*4  <r  in  m 

WUMJ'N 

sO  <4  INJ  ® 

oj  <r>  ^  cm 

w  <si  n 

•  •  •  • 


o.  a  a.  w 
x  x  x  a 
<<<* 


^  PJ  n  a  H  (\J  CM 

o  o  o  o  o  o  e 

»  i  I  4  4  t  4 

UI  UJ  Ui  UJ  UJ  UJ  Ui 

r(  cw  ic  j  n  cr 

C  W  N  (\J  lii  U3  v£> 

H  KH  «  OQ  W 
W  W  W  n  H  H  *4 

t  I  I  I  I  O 

II  II  II  II  II  II  II  II 

3SOOta)l-<fl 

XZZZ  ODIN 

r  r  t  «*  z 


■*4®  ^  PJ  Ti  N  O  O 

aa  oaoooo 

i  *  4  4  14*4 

Ui  Ui  UJ  Ui  Ui  Ui  Uj  UJ 

O  ,*■  w  i)  Wip  OtJ 

«TvC  IP  W  N  a  O'  N- 

in  cr  .j  «e  rvj  (\j  «  if) 

00  in  S.  IP  M  If  t4 

I  I  O  i  I  I 

II  II  II  II  II  II  II  II  II 


4  4*44 

Ui  Ui  UJ  Ui  Ui 
rlO  M  IP  (\J 
CT  CM  N.  (Vi  t4 
UJ  Jp  CD  w4  CM 
MONolP 

H  fO  M  ti  N 


•  •  •  Ol  •u 

cl  a  a.  co  _j 
tins 
«  <  «  *  z 
a.  * 

U.  U,  U  VJ 

_J  J  J  N 
«X  «X  «3  * 

X  I  X  CM 


UJ  Ui  UJ  UJ 
O  N  PJh 
WNOh 
PJ  N  PJ  *4 
«•  r-  *4  .»■ 
(T  r  h 


•  •  •  (L 

a.  a  a  z 
r  r  r  * 

«i  «  « 

N 

U.  u  u  * 
-I  J  J  M 
«  «  « 
XXX 


D  X  O  O  Ui  »-*  i 
NN  J  N  OC 
INI  NN 


c  o  o  o 

IP  IP  li)  vO 
rl  W  O  O' 
vo  iO«n 
in  in  -4  ^4 


o  |  I  *  4 

o  o  o  o  o 

»•  iC  v£  o 
IP  IP  vO  lO 
l/IOOOO 
U  K  N  IP  IP 

O  •  •  «  • 

O  |  |  I  I 


r  I-  J  C  U  <1 

2  U  lr'  I  X 

o  o  a 


it  n  ii  II  ii  II  H  ii  n 

3JOCWI»3lUV 

X  X  *  X  O  ©  >  x 

X  XX 


1 OQOOOEtO 1  9  =  .102664E*01  C  =  ,2222 61E*G1  0  =  .343627E-01  E  *  .706112E-02 


AFFDL -TR- 78-203 


RUN  NO*  lift  ELEVATOR  NUMERATOR  CHARACTERISTICS 


THETA  PER  CONTROL  OEFLECTION 
ROOTS  C C CMPLEX  FORM) 

-.21410-01  0. 

54360*00  0. 

1/TT1  s  .214275E-01  1/TT2  *  .543574E+00 

AT  *  -.105144E+C1  BT  =  -.594067E+00  CT  =  -.122466E-01 


LONG XTUOlNftL  VELOCITY  PER  CONTROL  DEFLECTION 
ROOTS  (COMPLEX  FORM) 

-• 364  50  *01  0. 

•69340*01  0. 

1/TUI  -  *3 64 50 9E *01  1/TU2  =  6933932*01 

ftU  =0.  BU  =  - .733392E  +  G  fl  CU  =  *241200E*01  DU  =  *185363E*02 


NORMAL  VELOCITY  PER  CONTROL  OEFLECTION 
ROOTS  (COMPLEX  FORM) 

-.74360-02  -.60230-01 
-.74360-02  .60230-01 
-.42660*02  .11280-45 


zw  = 

• 122536E+00 

WW  = 

. 6O6870E-O1 

i/TW  =  .426619E+02 

AW  = 

- • 183563E  +  P  2 

QW  = 

-•783388E+03 

CW  =  -.117146E+02 

DH  =  -.288414E+01 

ALTITUDE  RATE  PER  CONTROL  OEFLECTION 
ROOTS  (COMPLEX  FORM) 

-.14460-01  0. 

.48530+01  0. 

-.48390+01  0. 

1/TH1  =  • 1 44816  E-0 1  1/TH2  =  -.485Q34E+01  1/TH3  =  .483929E  +  01 

AM  =  .1835636*02  BH  ^  .629834E-01  CH  =  -.430866E+03  DH  =  -.623959E+01 

VERTICAL  ACCELERATION  PER  DELTA  ELEVATOR 
ROOTS  (COMPLEX  FORM) 

-.14480-01  0. 

-.66610*00  -.56780*01 

-.66610*00  .56780*01 

ZA7  =  .1165195*00  WA7  =  .571683E*0l  1/TAZ1  =  .144777E-01 

A  A  =  .1318T0E  +  02  BA  =  .17759QE+02  CA  =  .431233E+03  DA  *  .623959E+01 
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AFFDL-TR-78-203 


GUN  NO.  11 A  THRUST  NUMERATOR  ROOTS 


THETA  PER 
ROOTS  CCOMPLEX 
-.56640*00 
-.36640*00 

CONTROL  DEFLECTION 
FORM) 

.26520*00 

-.26520*00 

ZT  * 

.8100  76E*  00 

V#  T  =  .452351E*00 

AT  = 

•  19  58  54E-02 

9 T  =  • 77578  3E-0  3 

CT  = 

•  21660 IE -0  3 

LONGITUDINAL  VELOCITY  PER  CONTROL  OEFLECTION 
ROOTS  (COMPLEX  FORM! 

.12220-01  « 1715D-20 
-.51080*00  -.13070*01 
-.510*0*00  .13970*01 


ZU  * 

•  343399E  *00 

WU  - 

• 148748E*0 1 

1/TU  =  -• 1 22178E -0 1 

AU  * 

. 914224E*  0  0 

BU  s 

. 922798E*  0  0 

CU  s  • 201139E*01 

DU  =  -.24M4ZE-01 

NORMAL 

VELOCITY 

PER  CONTROL 

OEFLECTION 

ROOTS  CCOMPLEX  FORM) 
-.14480-01  0. 

-.66610*00  -.56780*01 

-.66610*00  .56780*01 


ZW  S 

. 1165196*00 

ww  = 

.571683E*01 

1/TW  *  .144777E-01 

AW  - 

- • 181563£*02 

BW  = 

-• 783388E*03 

CW  =  -• 11 7146E*0  2 

OW  =  -.2884146*01 

ALTITUDE  RATE  PER  CONTROL  DEFLECTION 


ROOTS  (COMPLEX 

FORM) 

-.77950-02 

.61840-01 

-.77950-02 

-.61640-01 

-.42700*02 

.14920-47 

ZH  = 

•  12506  3E*00 

WH  =  • 623307E-01 

1/TH3  ^  .427041E*C2 

AH  a 

.  18356^E*?.2 

BH  =  • 784177E*03 

CH  =  . 122926E*02  OH  = 

•  30  4551E  *01 

VERTICAL  ACCELERATION  PER  OELTA  ELEVATOR 
ROOTS  (COMPLEX  FORM) 

-.77990-02  -.61840-01 

-.77990-02  .61840-01 

-.42630*02  -.27480-45 

7AZ  =  .125126E*00  WAZ  *  .623298E-01  1/TAZ1  =  .426316E*02 

AA  =  -• 18388 1E*02  BA  =  -.784200E*03  CA  *  -.122991E*02  OA  *  -.304551E*01 


AFFDL -TR- 78-203 


RUN  NO.  11 A  COUPLING  NUMERATOR  ROOTS 

THETA  TO  ELEVATOR,  LONGITUOINAL  VELOCITY  TO  THRUST 
1/TTU  =  *546932E^00 

ATU  =  -*R61255E^0G  BTU  =  -,525741E*00 

NORMAL  VELOCITY  TO  ELEVATOR*  LONGITUOINAL  VELOCITY  TO  THRUST 
1/TWUi  =  -.335089E-C2  1/TMU2  =  .426651E+02 

AHIJ  =  -.167818O^02  9HU  =  7159420^03  CWU  =  .  2399230*01 

THETA  TO  ELEVATOR,  NORHAL  VELOCITY  TO  THRUST 
1/TTW  s  « 111 39SE+  0  1 

ATM  =  .748566E-01  9T  W  =  .#33872E-01 

S  TIMES  THETA  TO  ELEVATOR,  ALTITUOE  TO  THRUST 
1/TTH  =  .111 396E ♦O 1 

ATH  =  -.748566E-01  9TH  =  -.833872E-01 

S  TIMES  LONGITUOINAL  VELOCITY  TO  THRUST,  ALTITUOE  TO  ELEVATOR 
i/TUHl  =  485163^*01  1/TUH2  =  .48«*010E*01 

A UH  s  .1678180*02  9UH  =  -.1934590*00  CUH  =  -.394076D*Q3 

S  TIMES  NORMAL  VELOCITY  TO  THRUST,  ALTITUDE  TO  ELEVATOR 
1/TWH  c  • 111396E*0  1 

AMH  =  0.  BMH  =  .  5576820*02  CWH  =  .6212340*02 

S  TIMES  LONGITUDINAL  VELOCITY  TO  THRUST,  ACCELERATION  TO  ELEVATOR 
1/TUAZ1  =  - .27  8905E ♦00  1/TUAYZ  =  -.117200E*03 

AUA7  =  .1205580*02  9UAZ  =  -.1416300*04  CUAZ  =  .394076D*03 

PLEASE  RETURN  PAPER 
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PROGRAM  LATE(INPUT, OUTPUT, TAPE5=INPUT,TAPE6*OUTPUT, PLOT)  000100 

C  LATERAL  DIRECTIONAL  TRANSFER  FUNCTIONS  000110 

DIMENSION  R00TR(5),R00TI(5> ,BC41 ,P(4> ,RA(4> ,AYP(6),0ELC5)  000120 

DIMENSION  ROOTROC5I,  R00TI0I5) , TITLE (21)  000130 

DIMENSION  AP8(3)*APSB(3),APAY(4l,IN0(8,4l,0ATA(436>  000140 

COMPLEX  COM, COMA, COMB, ANUM.AOEN  000150 

COMMON  /AA/  CON,CONA,COM,ANUM,ADEN,OTR,IROOT,TR,TS,ZO,HO,E,PER,  000160 
1AP,BP,CP,DP,AB,8B,CB,0B,I0PT,A,TA,TB,TC#0ATA,TITLE,PLT,IPLT  000170 

2 , RUN, WOO  000160 

C0MM0N/8B/RH0,U,S,GWT,BSPAN,ZIXB,G, ALFAI,GAMA,ALX,CX( 16) , ALFAA,  000190 
A  ALFAXvPL0,Y8,Y80,YP,YR,Y0A,ALB,AL30,ALP,ALR,AL0A,AL0R,ANB,ANB0,  000200 
8  ANP,ANR,ANOA, ANDR, ALBP, AL80P, ALPP, ALRP, ALOAP,ALORP, ANBP,ANBOP,  000210 
C  ANPP, ANRP , A  NO  AP , ANORP, ZIZB,ZlXZB«YOR  000220 

DOUBLE  PRECISION  ROOTRD,  ROOTIO,  B,  P,  RA,  A YP ,  OEL, APB, APSB , APA YOO 0 230 
DATA(INO(I,l)  ,1-1,  81/  8*6H  ✓  ,  INO(l,2)  /75H  FOR  B,  DA00C240 

1,  and  OR  DERIVATIVES,  AMO  PER  RADIAN  FOR  BD,  P,  AND  R  OERIVATI VES/000250 
2 , INO ( 1  *  3 ) /5  2H  FOR  SIOESLIP  OERIVITIVES,  PER  RAOIAN  FOR  ALL  OTHERS/00026Q 
3, INOI1, 4) /51H  FOR  CONTROL  OERIVITIVES,  PER  RADIAN  FOR  ALL  OTHERS/  000270 
4,  (INO(I,3),I=  6,8  )/3*6H  /  ,  ( IND  ( 1 , 4)  ,  1=  6,6  )/3*6H  /  000280 

1 PLT=0.$PLO=0 •  000290 

J JXX=  Q  000300 

250  REAO(5* 11  > M , J ,K , RUN, I OPT , ( TITLE ( I ) , 1=1 , 1 1)  000310 

IFCEOFC5) .NE.O) STOP  000320 

11  F0RMAT(I1,I1, I1,A3,I3,1QA6,A3)  000330 

WRITE  C6, 175  »RUN,( TITLE (I) ,1=1,11)  000  340 

175  FORMAT C 1H1, 3X ,  28H  ROOTS  OF  A/C  LATERAL  ,  000350 

*  30H DIRECT  ION AL  TRANSFER  FUNCTIONS ,/lH0,36X,  000360 

•  8 HR UN  NO.  , A3/1H0 ,7X,10A6,A3)  000370 

C  FOR  M=1  USE  DIMENSIONAL  INPUT  DATA  (STAB  AXIS)  000380 

C  M  =0  USE  NONOIPENSIONAL  INPUT  DATA  (STAB  AXIS)  000390 

C  FCR  J  =  0 »  USE  NON-DI MEN.  STAB.  DERIVATIVES  WITH  UNITS  OF  1  PER  RAOIAN.  00C400 

C  FOR  J=l,  USE  NON-OIMEN.  STAB.  DERIVATIVES  WITH  UNITS  OF  1  PER  DEGREE.  000410 

C  FOR  J =2  USE  NON-OTMEN.  STAB.  OERIVITIVES  WITH  UNITS  PER  OG  FOR  B , DA  000420 
C  ANO  OR  DERIV,  AND  PER  RAOIAN  FOR  BO,P,  AND  R  OERIF.  000430 

C  TOR  K  =  1  USE  PRIMED  01 MENSIONAL  INPUT  DATA  (STAB  AXIS)  000440 

C  K=0  USE  UNPRICED  DIMENSIONAL  INPUT  DATA  (STAB  AXIS)  00C450 

IF(M.LT.2)G0  TO  1143  000460 

JJXX=1  000470 

M=M-5  000460 

1143  IF (M) 143, 144,143  000490 

143  IF(K)90 ,142,90  000500 

144  IF(J.GT.4)CALL  CHNG(J)  000510 

IF(J.GT.4)PLT=PL0  000520 

IF(  J.LE  .4IREAD(5,13) RH0,U,S,GWT,9SPAN,Z1XB,ZIZB,ZIXZB,G,  ALFAI  ,  00  0530 

A  GAMA, ALX, (CX(Il) ,11=1,18) , ALFAA, ALFAX,PLT  00C540 

CV9=CX( 1) SCYBD=CX(2) fCYP=CX(3)$CYR=CX(4)$CYDA=CX(5)fCYOR=CX(6)  000550 

C  LB=C  X ( 7) SCLB0=CX(8) $CLP=CX(9) $CLR= CX ( 1 0 ) $CL DA=CX (11) SCLDR=CX (12)  000560 
CNB=CX(1 3)$CNB0=CX(14)$CNP=CX(l5)kCNR=CX(l6) $CNOA=CX(17)  000570 

CNOR=CX ( 18)  000580 

IF(J.GT.4) J=J-5  000590 

13  FORMAT(6E12.0 )  000600 

IF(J)  168, 167, 168  000610 

167  WPITE  (6, 202) RHO,U,S,GWT  ,BSPAN,ZIXB,  ZIZB, ZIXZB000620 

l,G,ALFAI,GAMA,ALX,CYB,CYBD,CYP,CYR,CYDA,CYOR,  CL B, CL  BO, COO  0630 

2L P, CLR, CLOA, CLOP, CNB ,CN80,CNP, CNR, CNOA,CNDR  000640 

3  , ALFAA, ALFAX  000650 

202  FOPMAT( 1H0, 5X50HINPUT  DATA  ( NON-OINENS I  ON AL )  PER  RADIAN  000660 

1  /1H0,6H  RHO  =E12.4, 6X3HU  =E12.4,6X3HS  =E1 2. 4, 4X5HGWT  =E12.4,  000670 


2  2X7 H  SPAN  =  £ 12.4.4X5HIXB  =E12.4/7H  IZB  =E12. 4, 3 X6HI XZB  =E12.4,  0GC680 

3  6X3HG  =E12.4,2X7H  ALFI  =£12.4, 3X6HG AMA  =£ 12. 4, 5X4HL X  =£12.4/  00G690 
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4  7M  CYB  =E12,4,3X6HCVBD  =El2.4,4/5HC YP  =£12.4, 4X5HCVR  =£12.4,  000700 

5  3X6HCY0A  =  E12. 4. 3X6HCY0R  =E12.4/7H  CL 8  =E 12.4, 3X6HCLB0  =E12.4,  000710 

6  4X5HCLP  =E12.4*4X5HCLR  =E12 .4, 3X6HCL0A  =E12.4,3X6HCLDR  =E12.4/  000720 

7  7H  CNB  =E12.4,3X6HCNBD  =E12.4,4X5HCNP  =E12.4,4X5HCNR  =£12.4,  000730 

0  3X6HCN0A  =£12,4, 3X6HCN0R  =£12.4  000740 

9  /1X.6HALFA  =,E12.4,2X7H  ALEX  =,£12.4)  000750 

GO  TO  1000  000760 

168  WPITE (6,166) (INO(I«J) ,1=1,6  ) , RHO ,U, S,G HT , BSPAN , Z IXB, 2IZB, ZI XZB  000770 

l,G,ALFAI,GAMA,ALX,CYB,CtBO,CYP,CYR,CVDA,CYDR,  CLB,CLBO, COO 0780 

2LP*CLR,CL0A,CL0R,CNB,CNBD,CNP,CNR,CN0A,CNDR, ALFAA,ALFAX  000790 

166  FORMAT* 1H0, 6X39HINPUT  OATA  (NON-DIMENSIONAL)  PER  OEGREE , 7A10 , A5  000800 

1  /1H0,6H  RHO  =E12 .4 , 6X3HVJ  =E12.4,6X3HS  =E12.4,4X5HGWT  =E12.4,  000810 

2  2X7H  SPAN  =£12.4,4X5HIXB  =E12.4/7H  IZ8  =E12.4, 3X6HI XZB  =E12.4,  000820 

3  6X3HG  =E12.4,2X7H  ALFI  =E12 . 4, 3X6HGAMA  =E12.4, 5X4HLX  =E12.4/  000830 

4  7H  CYB  =E12.4,3X6HCYBD  =E12.4,4X5HCYP  =E12.4,4X5HC Y«  *El2.4t  000840 

5  3X6HCY0A  =£12. 4, 3X6HCY0R  =E12.4/7H  CL B  =E12. 4, 3 X6HCLB0  =E12.4,  000850 

6  4X5HCLP  =E12.4,4X5HCLR  =E12 . 4 , 3X6HCL0A  =E12.4, 3X6HCLDR  =E12.4/  000860 

7  7H  CNB  =E12.4,3X6HCNBD  =E12.4,4X5HCNP  =E12.4, 4X5HCNR  =£12.4,  000870 

8  3X6HCNDA  =£12. 4, 3X6HCNDR  =E12.4  00088 0 

9  /1X,6HALFA  =,£12*4, 2X7H  ALFX  =,E12.4)  000890 

0TR=57. 295779  000900 

IF(J.£f3.4)  GO  TO  1104  000910 

CVB=CYB*DTR  000920 

CLB=CLB*OTR  000930 

CN8=CNB*  QTR  000940 

I F ( J. EQ . 3 )  GOTO  1000  000950 

1104  I F ( J. EQ .4 )  J=2  00C 960 

C  YOA=  CYO A*OTR  000970 

CVOR=CYOR*DTR  000980 

CLDA=CLrA*OTR  000990 

CLDR=CLOR*DTR  001000 

CNOA=CNOA*OTR  001010 

CNOR=CNOR*OTR  001020 

I F ( J.EQ • 2 )  GO  TO  10C0  001430 

C Y9D=  CYPD’OTR  001040 

CYP=CYP*OTR  001G50 

C  VR=C  YR*  0  TR  001060 

CLBO=CLBO*DTR  031070 

CLP=CLP*DTR  001080 

PLR=CLR*OTR  001090 

CN0Q=CNBO*OTR  001100 

CNP=CNP*DTR  00111C 

CNP=CNR*OTR  001120 

1000  ALFA?= (ALFAX-ALFAAl/57. 295779  001130 

SINA=SIN( ALFA2)  001140 

COSA=COS( ALFA2)  001150 

SCLDA=CLDA*SINA  001160 

CLOA=CLOA*COSA-CNOA*SlNA  001170 

CNOA  =  CNOA*COSA«-SCLOA  001180 

SCLOR=CLOP*SI8A  031190 

CLDR=CLDR*COSA-CNDR*SlNA  001200 

CNOR=CNOR*COSA«-SCLDR  001210 

SCLBO=CLBO*SINA  001220 

CLBO=CLBO*COSA-CNBO*SINA  031230 

CNBD=CNBO*COSA»SCLBD  001240 

SCLB=CL  B* SIN A  001250 

CLB=CLB*C0SA-CN8*SINA  03126Q 

CNB-CNB*COSA4SCL0  031270 

SCYP-  »,'*SINA  001280 

C  YP=  '-'»COSA-CYR*SINA*ALFAX/57. 295779  001290 
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CYR=CYR*COSA^SCVP  001300 

SCLP=CLP*SINA**2  001310 

SCCLPs ( CLP-CNR) •SlNA*COSA  001320 

S  CLR=  CLR*SINA**2  001330 

SCCLR=(CLR*CNP)*SINA*COSA  001340 

CLP=CLP*COSA**2*CNR*SINA**2-SCCLR  001350 

CLR=CLR*COSA**2-CNP*SINA**2*SCCLP  001360 

CNP=CNP*COSA**2-SCLR»SCCLP  001370 

CNR=CNR*COSA**2*SCLP^SCCLR  001380 

GO  TO  96  001390 

146  RSU=RHO*S*U  001400 

ZMASS=GWT/32. 174  001410 

PSU*=RSU/ZMASS  001420 

RSUX=RSU*BSPAN/ZIXS  001430 

RSUZ=RSU*BS  PAN/ZIZS  001440 

YV=fRSUM/2.0  1*CYB  001450 

YB=U*YV  001460 

YVO=(RSUM*BSPAN/(4*0*UI ) *CYeO  0  0147  0 

YBD=U*YVO  001480 

YP=<RSUH*9SPAN/4.0>*CVP  001490 

YR=(RSUM*BSPAN/4.0> *CYR  001500 

YDA=tRSUM*U/2.0>*CYDA  001510 

YOR=(RSUM*U/2.0)*CYOR  001520 

ALB=<RSUX*U/2.0»*CLB  001530 

ALBO= VRSUX*BSPAN/4.0)*CLBO  001540 

ALP=<RSUX*BSPAN/4.0» *CLP  001550 

ALR=(RSUX*BSPAN/4.0» *CLR  001560 

ALOA= (RSUX*U/2.0» *CLDA  001570 

ALDR= CRSUX*U/2.0) *CLDR  001580 

ANP=(RSUZ*U/2.0)*CNB  001590 

ANBO= (RSUZ*BSPAN/4.0 ) *CNBO  001600 

ANP=(RSUZ*BSPAN/4.0) *CNP  001610 

ANP=(RSUZ*BSPAN/4.0) *CNR  001620 

ANOA= (RSUZ*U/2.G»*CNOA  001630 

ANDR= <RSUZ*U/2.0) *CNOR  001640 

WRITE (6,300>YB,YBD,YP,YR,YDA,YORf ALB, ALBO , AL P, ALR , ALO A , AL OR,  001650 

1  ANB,ANBO «ANR,ANR VANDA, ANOR  001660 

TOO  EORMATC 1H0, 5X33HOIMENSIONAL  STABILITY  DERIVATIVES  001670 

1  /1H0,2X4HYB  =E12.4,4X5HYB0  =E12.4, 5X4H YP  =El2*4, 5X4HYR  =E12,4,  031680 

2  4X5HY0A  =£12*4  *4 X5HYOR  =E12  *4/ 3X4HLB  =E12.4,4X5HLB0  =El2.4,  001690 

3  5X4HLP  =  E1 2 • 4  *  5X4HLR  =E12.4,4X5HL0A  =E12 .4,4X5HL0R  =E12.4/  001700 

U  3X4HN9  =E12.4,4X5HNB0  =E12. 4, 5X4HNP  =E 12 .4 , 5X4HNR  =E12.4,  001710 

5  4X5HNDA  =E12.4,4X5HNDR  =El2.4>  001720 

GO  TO  145  001730 

142  IFfJ.GT.4)CALL  CHNG«J>  001740 

IF<J. GT.4)PLT=PL0  001750 

IF(J.GT.4)G0  TO  1101  001760 

REACH  5 ♦ 12)U,G,ALFAI,GAMA, AL X, ZI X9,ZI ZB, ZI XZB,Y8 , YBQ,  Y0C177  0 

1P,YR,Y0A, YOR,ALB, ALBO , ALP  ,  ALR , ALDA, AL OR ,  ANB , AN8D0C 1 780 

2, ANP,  ANR, ANOA,ANOR  001790 

3  ,ALFAA, ALFAX.PLT  001800 

1101  IF<J.GT.4> J=J-5  001810 

12  F0RMAT(6E12. 0)  001820 

WPITE(6,203)U*G,ALFAI,GAMA,ALX,7IX8,ZIZB,ZIXZ8,V8,YBO,YP»  001830 

1YR,Y0A, Y OR* ALB, AL BO , AL P, AL R ,  ALO A, AL OR ,  ANB, ANBO, AOO 1840 

2NP,ANR, ANOA.ANOR  001850 

3  ,ALF1A,ALFAX  001860 

203  FORMAT(lH0,5X 39H INPUT  OATA  < OINENSIONAL ,  UNPRIMEOI  001870 


1  /1MC.3X3HU  =E12.4,6X3HG  =E12.4,2X7H  ALFI  =E12. 4, 3X6HGAMA  *E12.4,  001880 

2  5X4HLX  =E1 2 • 4 » 4X5HI XB  =E12« 4/2X5HI ZB  =E12. 4,3X6HIXZB  *E12.4,  001890 
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3  5X4HYB  =E12.4,4X5HYBD  =E12.4,5 X4HY»  =E12.4, 5X4HYR  =£12.4/ 

4  2X5HYOA  =£12.4,4X5HV0R  =£12.4, 5X4HLB  =E1 2. 4 ,4X5HLB0  =£12.4, 

5  5X4HLP  =£12 • 4, 5X4HLR  =E 12. 4/2X5HL0A  =£12. 4, 4X5ML OR  =£12.4, 

6  5X4HNB  =£12. 4,4X5HNB0  =E12. 4, 5 X4HNP  =£12.4, 5X4HNR  =£12.4/ 

7  2X5HN0A  =£12 .4.4X5HNDR  =E12.4, 3X6H ALFA  =El2 .4, 3X6HAL FX  =£12.4) 
YV=YB/U 

YVO= YBO/U 

96  0TR=57. 295779 

ado=«alfai-alfax>/dtr 
SA=SIN( AOO) 

C A=COS  C  ADD) 

TAA=2.0*ADO 

STA=SIN(TAA) 

CTA=COS (TAA ) 

1 TXS=ZI XB*C A**2  ♦ZIZB^SA**?  -ZIXZ0*STA 
ZIZS=ZIZB*CA**2  ♦ZIXB*SA»*2  »ZIXZD*STA 
ZIXZS  =  ZIXZB*CTA».5MZIXB-ZIZB)*STA 
IF \M.H£ .1)00  TO  146 
145  XM=kIXZS/ZIXS 
ZH=ZIXZS/ZIZS 

OXZ=1.0-t IA9SIZIXZS>**2>/(ZIXS*ZIZS) ) 

ALBP= (ALB»XM*ANB) /OXZ 
ALROP=f ALBD^XM*flNBD)/DXZ 
ANBP= I ANB*ZM*  AL  B) /OX  Z 
ANBOP=C ANBD*ZM*ALBO) /OXZ 
ALPP= IALP*XM*ANP)/OXZ 
ANPP= * ANP*ZN*  ALP) /DXZ 
ALRP= *  ALR*XM*  ANR) /OXZ 
ANRP=  *ANR*ZN*ALR)/OXZ 
ALDAP= I  ALBA  *XM*  ANQA ) /DXZ 
ANDAP=(ANDA»ZM*ALDA) /DXZ 
ALORP=f ALOR*XM*ANOR> /OXZ 
ANDRP=<  ANOR*ZM*ALOR>  /DXZ 
VP=YP*U*SIN(ALFAX/DTR) 

YR=YR*U*  Cl.-COSCALFAX/OTRI) 

WRITE  16,301) ALFAl.ALFAA, ALF A X, ZI XS, ZI ZS , ZI XZS, ALBP, AL BOP, 

1  ALPP, ALRP, ALCAP, ALORP, ANBP, ANBOP,ANPP, ANRP, ANOAP  ,ANORP 
301  FORMATC 1M0, 5X40HOIHENSIONAL  STABILITY  DERIVATIVES  PRIMEO 

1  /1H0,6HALFI  =E12.4,3X6HALFA  =E12.4 , 3X, 6HALF X  =E12.4, 

2  5X4HIX  =E1 2.4, 5X4HI Z  =E12.4,4X5HIXZ  =£12.4, 

X  /7M  L BP  =E12.4,3X6HLB0P  =El2.4,4X5MLPP  =£12.4, 

3  4X5HLRP  =E12.4,3X6HLDAP  =E1 2. 4 , 3X6HL0RP  =E12.4/7M  N0P  =E12.4, 

4  3X6HNB0P  =E12.4,4X5HNPP  =£12.4 ,4X5HNRP  =£12.4, 3X6HN0 AP  =£12.4, 

5  3X6HN0RP  =E12.4) 

GO  TO  112 

90  IF *J. GT .4ICALL  CHNG(J) 

IF*J.GT.4)PLT=PL0 
IF1J.GT.4)G0  TO  1100 

Rf ADC 5, 10»U,G,GAMA,ALX,YB,YBO,YP,YR,VOA,YOR,ALBP, AL BOP, ALPP, 

1  ALRP , ALO AP , ALORP, ANBP, ANBOP vANPP, ANRP, ANOAP, ANORP^ PL T 
ALFAX  =  0. 

ALFAA  =  0. 

ALFAI  =  0. 

1100  IFlJ.GT.4)J=J-5 
10  F  ORHA  T ( 6E 12. 0 ) 

WRITE (6, 204) U,G,GAHA,ALX, YB, YBO, YP,YR,YOA,VDR, ALBP, AL BOP, 

1  ALPP, ALRP, AL DAP, ALDRP, ANBP, ANBOP.ANPP, ANRP, ANOAP, ANORP 
2C4  FORMAT* 1H0, 5X45HINPUT  DATA  ( OINENSION AL ,  PRIMED) 

1/1M03X3HU  =E12.4, 6X3HG  =£12. 4, 3X6MG AHA  =£12. 4, 5X4MLX  =£12.4* 

2  5X4HYB  =E1 2. 4,  4X5HYBD  =F.  12.  4/3X4HYP  =£  12.  4,  5X4HYR  =£12.4, 


001900 
001910 
QO 1920 
001930 
001940 
001950 
001960 
001970 
001900 
001990 
002000 
002010 
002020 
002030 
002040 
002050 
002060 
002070 
002090 
002090 
002100 
002110 
002120 
002130 
002140 
002150 
002160 
002170 
002160 
C02190 
002200 
002210 
002220 
002230 
002240 
002250 
002260 
002270 
002290 
002290 
002300 
002310 
002320 
002330 
002340 
002350 
002360 
002370 
002390 
002390 
002400 
002410 
002420 
002430 
002440 
002450 
002460 
002470 
002490 
002490 
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3  4X5HYDA  =E12.4,4X5H YOR  =E12.4, 4X5HL0P  =£1 2. 4, 3X6HLBOP  *E12.4/ 

4  2X5HLPP  =E12.4,4X5HLRP  *E12 .4 , 3X6HL0 AP  =£12.4, 3X6HL0RP  =£12.4, 

5  4X5HNBP  =E12 .4  *3X6H  NBOP  =E12.4/2X5HNPP  =£12 .4, 4X5HNRP  =E12.4, 

6  3X6HNDAP  =E1 2 • 4, 3X6HNDRP  =E12.4) 

YV=YB/U 

YVD=YBO/U 
112  DTR=57. 295779 

XK0N=2. 0*3. 14159 
GOO=<GAMA*ALFAX!/OTR 
SG=SIN  C  GOO) 

CG=CO$(GOD) 

GSG=G*SG 
GCG=G*CG 
R7ERO=0 • 0 
IROOT=l 

IF(PLT.GT.C. . AND.  IPLT .EQ. 0 1  CALL  PLOTS < OAT A, 438) 

C  LATERAL-DIRECTIONAL  DENOMINATOR 

A=1 .O-YVO 

B  0=-ALPP- ANRP- Y V*  ANBOP*  <1.0- ( YR/U) > - ALBOP* ( YP/U) 

1  ♦YVD*(ANRP»ALP P) 

C  =  ANRP*  AL PP- ALRP* ANPP *ANBP*  C1.0— (YR/U)  )  *YV*I  ALPP  +  ANRP) 

1  -( YP/U) *  ALBP-ANBDP* I ALPP* 11. 0- (YR/U) ) M YP/U) *ALRP* IGSG/U) ) 

2  ♦ALBOP*  I  ANPPM1.0-IYR/U)  )  ♦  ( YP/U)  * ANRP- CGCG/U)  I 

3  fYVD*( ALRP*ANPP-ANRP*ALPP) 

0=ALRP*  ANPP*YV-ANRP*  ALPP*YVMYP/U)* I ANRP*ALBP-ALRP*AN0P) 

1  ♦Cl.O- (YR/UI ) •( ALBP*ANPP-ALPP*ANBPI - (GCG/U)* ALBP 

2  -CGSG/U) *AN8P*ANBDPM  (GSG/U) *ALPP- (GCG/U) *AL  RP ) 

3  ♦ALBOP*! t GCG/U)* ANRP- (GSG/U) *ANPP) 

E=!GCG/U) *CANRP*AL8P-ALRP*ANBP) ♦ (GSG/U) * ( ALPP* ANBP- AL BP*ANPP) 
WRITE  <6,176) 

176  FORMAT* 1H0, 15X, 37HLATERAL  OIRECTIONAL  DENOMINATOR  ROOTS) 

0  EL  <  1 1  =  A 
DEL  <  2 )  =  BD 
OEL ( 3 ) =C 
0EL!4»=D 
DEL<5)=E 
N=4 

CALL  OMUL  R  I  DEL ,N,ROOTRO,ROOTIOI 
M  =  1 

66  WR ITE (6,401) 

4P1  FORMATdH  ,20HROOTS  (COMPLEX  FORM)) 

I F ( M. £0 . 3 )  GO  TO  1007 

IF(M.EQ. 5  .ANO. JXY.EO.l)  GO  TO  1007 
WRITE (6,4Q3)R7ERO,RZERO 
403  F0RMAT(5X,ct,.l,13X,F4.1) 

1007  DO  ICO?  1=1, N 

IFIOABSIROOTIDCI) )#LT.l.D'5)GO  TO  1001 
WPITE(6,21)R00TRD!I) ,R00TID(I) 

21  FORMATdH  ,3XC12. 4,5X012. 4) 

GO  TO  1002 

lOGl  WRITE (6,21) ROOTRO(I) 

1002  CONTINUE 

00  *00  1=1, N 
R  OOTR ( I )  =  ROOT  RO ( I ) 

80C  POOTI(I)=ROOTIO(I) 

GO  TO  (94,67,  72,73,80)  ,M 
94  IF(l.E-4-AB5(R00TI(l ) ) ) 1 19 , 1 20 , 120 
119  W 1=SQRT (ROOTR (1) **2*R00TI (1) **2) 

WDl=ABS(ROOTI (1)) 

Zl=-ROOTR (1 )/Wl 


002500 
002510 
002520 
Q0253Q 
002540 
002550 
002560 
002570 
002580 
002590 
002600 
002610 
002620 
002630 
002640 
002650 
002660 
032670 
002680 
002690 
002700 
002710 
002720 
002730 
002740 
002750 
002760 
002770 
002780 
002790 
002800 
002810 
002820 
002830 
002840 
002850 
002860 
002870 
002860 
002690 
002900 
002910 
002920 
002930 
0 0 2940 
002950 
002960 
002970 
002980 
002990 
003000 
003010 
003020 
003030 
003040 
003050 
003060 
003070 
003080 
003090 
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115 

116 


174 


173 

39 


120 


130 


131 

91 


170 


89 


117 


W3= Wl/XK  ON 
WD3=W01/XK0N 

IFti,E-4- ABS<  ROOT  1(3))) 116* 117*117 

WO=SQRTCROOTR(3)**2*ROOTI C3I ••2) 

H00=A8SCR00TI (311 

ZO=-ROOTR (3 1  /  WO 

W4=WD/XK0N 

W04= WOO/XKON 

IF«ABS(ROOTI(1)>.LT..001)GO  TO  91 
I ROOT =2 

IFtWD-Wl)  173,173,  174 

WRITE (6,391 Z1,W1, ZO, WO, WOO, W3, W4, W04 
11=1 

GO  TO  222 

WRITE (6 ,391 ZO.WO, Zi, W1 , WO  1, W4, W 3, WO 3 
FOPMATI1HO,  04 HZ  1  =,E14.6,1X,  04HW1 
•HZ 2  =  ,  E14.6,1X,  04HW2  =,E14.6,1X 

•4,6,lX,07HRAO/SEC,/24X,01Hs,E14.6,lX, 

•  ,€14. 6, IX,  1QHCYCLES/SEC,  6X,  ulH= 

nUM0=Zl 
Zl=ZO 
ZO=OUMB 
STUPE=W1 
Wl=WO 
WO=STUP€ 

S  TUP 1 0=  WO 1 

woi=woo 

woo=stupio 

11=1 

GO  TO  222 
TD1=-1. /ROOTR (II 
ROOTI (1) =0.  0 

IF(l.E-4-A9S(R00TI (2 >M 130,131,  131 
WO=SQRT (ROOTR (21 **2*R00TI (2) **2) 

WOO=  A9S (ROOTI (2)1 
ZO=-ROOTR (2 1 /WO 
W4= WO/XKON 
W  04  =  WOD / X  KON 
TO2=-l./R00TP (4) 

GO  TO  91 

T02=-l. /ROOTR (2) 

GO  TO  115 
11=2 

IF(A8S(TD1) .LT. ABS(TO  1IGO  TO  89 
WRITE (6, 170 )Tri,T02, ZD, WO, WOO, W4,WD4 
FPRMAK  1H0, 1X4HTS  =E  14.  6, 3X ,  4HTR  =E14 

1  3X.5HWOR  =E14.6,8H  PA O/SEC , 6X , 6HW0DR 

2  /1H  , 69 X ,  0 1H  =  , E14 • 6 , 1 1H  CTCLES/SEC 

•Cl 

TS=TD 1 
TP=T02 
I  1=2 

GO  TO  222 

WRITE (6,170) T02,T01,Z0,WD,WD0,W4, W04 

f  5*TP2 

TP=T01 

GO  TO  222 

T03=*l. /ROOTR (3) 

TP4=-i. /ROOTR (4) 

WP=W1 


003100 

003110 

003120 

003130 

003140 

003150 

003160 

003170 

003160 

003190 

003200 

003210 

003220 

003230 

003240 

=  , E14. 6, IX,  07HR  AO/SEC, 4X,  04003250 

,  Q7HR A  D/SEC  ,4X ,  06HWODR  =,E1003260 

10HCYCLES/SEC,23X,0 1H=  003270 

,E14.6,1X,  10HCVCLES/SEC)  003280 

003290 
003300 
003310 
003320 
00  3330 
00  3340 
003350 
003360 
003370 
003380 
003390 
003400 
003410 
003420 
003430 
00  3440 
003450 
Oil  3460 
003470 
003480 
003490 
003500 
003510 
003520 
003530 
003540 

.6,3X,5HZ0R  =E14.6,  003550 

=  E14 , 6 , 8H  RAO/SEC,  003560 

, 8  X,  0 1H= , E 1 4. 6 , 11H  CYCLES/SE003570 

003580 

003590 

0Q36Q0 

003610 

003620 

003630 

003640 

003650 

003660 

003670 

003680 

003690 
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171 


109 


124 


222 


224 

114 


600 

223 

402 


165 

149 


169 


wno=woi 

ZD=Z1 

IF(A8S(ROOTIf 11 I.GT..OODGO  TO  109 
WRITE  (6,171) T01,T02,T03,T04 
I  ROOT  =  0 

F CRMAT( 1H0.7H  T1  =E14.6,4X,7H  T2 
1  4X6H  T4  =E14.6I 
GO  TO  221 
11=2 

IF(ABS(T03) .LT. ABS(T04))G0  TO  124 
WRITE (6 ,17Q)TD3,T04, Z1 ,W1  ,W01, W3, WD3 

T  S=T03 
TP=T04 
GO  TO  222 

WRITE (6 ,170) T04 ,T03, Zl.Wl.WDl.W3.WD3 


003700 

003710 

003720 

003730 

003740 

=E14.6,4X,7H  T3  =E14.6,  003750 

QQ3760 
003770 
003780 
003790 
003800 
003810 
003820 
003630 
003840 
003850 
003860 
003870 
003880 
003890 
003900 
003910 
003920 
003930 
003940 
003950 
003960 
003970 
003980 
003990 

=  E13 • 5  .  004000 

=E13.5,5X35H0NE  OVER  CYCLES  T0004010 

004020 
004030 
004040 
004050 

=  ,E13.5)  004060 

004C70 
004080 
004090 
=,  004100 

004110 
004120 
034130 
004140 
004150 
004160 
004170 
004180 
004190 
004200 
004210 
004220 
004230 
004240 
004250 
004260 
004270 
004280 
004290 


T  S=TD4 
TF=T03 

PER=XKON/ (W  D*  SORT (l.-ABS(ZD) **2) ) 

TDR=XKON/WD 

TT01=.69315/(ABS<Z0»*W0> 

TT02=2. 30259/(ABS(ZO)*WD) 

CT01=TT01/PER 
C  T02=  TT  02 /PER 
CT03= 1.  0/CTOl 
CT04=1.0/CT02 
IP(ZO)223,223,224 

WRITE (6,114) TDR,TT01,TT02*PER,CT01*CT02,CT03.CT04 
F  ORWA  T ( 1H0, 1X1 7H DUTCH  ROLL  MODE  /1H0 , 6X6HTDR  =E13.5, 

1  13X19HTIME  TO  HALF  AMP.  =E1 3. 5 , 16X24HT IME  TO  ONE  TENTH  AMP 

2  E13.5./1H  .6X6HTODR  =E13.5, 11X21HCYCLES  TO  HALF  AMP.  =  , 

X  E13. 5, 14X26HCYCLES  TO  ONE  TENTH  AMP 
3/ 28X30H ONE  OVER  CYCLES  TO  HALF  AMP 
4  ONE  TENTH  AMP.  =£13.5) 

TZW=2.*Z0*W0 
WK'OSQ=WO*WO 
WRITE (6,600 ) TZW.WNOSQ 

F  ORMAT ( 48X, 10H2*ZO*WDR  * , E13. 5, 33X, 7H WDRSQ 
GO  TO  165 

WRITE (6,402) TDR.TTOl, TT02 .PER.CTOl, CT02 
FORMATC 1H0, 1X15HOUTCH  ROLL  MOOE , /1H0 , 11X6HT0R  =E13.5, 

1  6X21HTIME  TO  DOUBLE  AMP.  =E13. 5 .16X24HTIME  TO  TEN  TIMES  AMP 

2  E13.5./1H  , 11X .6HTDDR  =E13. 5 .4 X, 2 3H CYCLES  TO  OOUBLE  AMP.  =, 

3  E13.5, 14 X26H CYCLES  TO  TEN  TIMES  AMP.  =£13.5) 

T7W=2 .*ZO*WO 

WMOSQ=WO*WD 
WRITE(6,600)TZW,WNOSQ 
GO  TO ( 149,221 ) , II 

PER=XK0N/(W1*SQRTC1.-A8S(Z1) **2) ) 

TDR=XK0N/W1 

TT01=.69315/( ABS(Zl) *W1) 

TT02=2.  30  259/  (ABS(71)*W1) 

C  T01=  TT  01 /PER 
C T02=  TT  02/PER 
C  T03=l. O/CTOl 
CT04=1.0/CT02 
IF(Z1) 164,164,169 

WRITE (6, 177) TOR  ,TT01 ,TT02  .PER.CT01.CT02 *CT03,CT04 

TZWLP=2.*W1*Z1 

WN0SQL=W1*W1 

WPlTE(6,6flO)T7WLP,WNOSQL 
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177  FORMAT! 1H0, 1X17HL0NG  PERIOD  MODE  /1H0.6X6HTOR  =E13.5, 

1  13X19HTIME  TC  HALF  AMP.  =£13.5, 16X24HTIME  TO  ONE  TENTH  AMP.  =  , 

2  E13.5./1H  .6X6HT00P  =E13.5, 11X21HCYCLES  TO  HALF  AMP.  =, 

X  E13. 5, 14X26HCXCLES  TO  ONE  TENTH  AMP.  =£13.5, 

3/ 28X30H  ONE  OVER  CYCLES  TO  HALF  AMP.  =E13.5 .5X35H0NE  OVER  CYCLES 
4  ONE  TENTH  AMP.  =£13. 5) 

GO  TO  221 

164  WRITE! 6, 1781 T OR, TTOl.TT 02,  PE R,CT0i,CT02 

178  F ORMATC 1H0, 1X16HL0NG  PERIOD  MOOE , /1H0 , 1 1X6HT0R  =E13.5, 

1  6X21HTIME  TO  DOUBLE  AMP.  =£13. 5.16X24HTIME  TO  TEN  TIMES  AMP.  = 

2  E13.5,/1H  ,11X,6HT0DR  =£13.5,4 X.23HCYCLES  TO  DOUBLE  AMP.  =, 

3  £13. 5.14X26HCYCLES  TO  TEN  TIMES  AMP.  =£13. 5) 

T7WLP=?.*W1*Z1 

WN0SQL=W1*W1 

221  WRITE  (6, 201) A, BD,C,0,E 

201  FORMAT! 1H0 , 37X12HC0EFF ICIENTS/1H0 ,4X3HA  =E13.5,3X3HB  =£13.5, 

1  3X3HC  =E13.5,3X3HO  =E13.5,3X3HE  =E13.5) 

CON  =  -ZO*WO 

CONA  =  WD*SQRT!l.-ABS!ZO)**2) 

COM  =  C MPLX ! CON, CONA) 

COMA  =  COM*COM 
COMB  =  CO  MA  *COM 

ANUM  =  !ALBOP*! YR/U-l.l ♦ALRP-YVO*ALRP)*COMA 
1  » ! !YR/U-1.>  *ALBP»ALBDP*GSG/U-ALRP*YV) *COM* ALBP*GSG/U 

ADEN  =  (YR/U-1.  >*COMB+(ALRP*YP/U*GSG/U-ALPP*!YR/U-i.)  )  *COMA 
1  ♦! ALRP*GCG/U-ALPP*GSG/U) *COM 

PT09  =  SORT !(P£ALCANUM)**2*AIMAG! ANUMl **2 )  / 

1  I REAL! ADEN) 2* A  I  HAG ! ADEN) **2 )) 

WPITE  t  6,500 >  PT OB 

500  F0RMAT!//2X,19HPHI  TO  BETA  RATIO  =,E12.4) 

SIGMA=RHO/2.3769E-03 
PVMAG=OTR*PTOR  /(U*SQRT!SIGMA) ) 

WPITE  !  6,502)PVMAG 

502  FO«MATi/2X,18HPHI  TO  EQUIV  VEL  =,E12.4) 

FSPT0B=WD**2*PT0B 

WPITE(6,504)FSPTOB 

504  FOPMAT! /2X, 38HFREQ  SQUARED  TIMES  PHI  TO  BETA  RATIO  =,E12.4) 

C  AILERON 

YO=YOA 
ALOP=  AL  DAP 
A  NT)P=  ANDAP 
J  1=0 

I F !YO, NE • 0, 0 ) GO  TO  1003 
IFULOP.NE.  0.0)00  TO  1003 
IF!ANOP.NE.U.O)GO  TO  1003 
WRITE (6,1004) PUN 

1004  F CRMAT! 1H1, 5X8HPUN  NO.  A3,/1HQ,10X, 

1  60HTHE  AILERCN  NUMERATOR  ROOTS  ANO  CHARACTERISTICS  ARE  ZERO. 

GO  TO  113 

1003  WPITE ! 6, 14) RUN 

14  FORMAT! 1H1,  2X8HPUN  NO.  A 3 , 5X23HA IlERON  NUMERATOR  ROOTS) 

C  SIDESLIP  TO  CONTROL  DEFLECTION  NUMERATOR 

92  WRITE  ! 6 ,  30  2) 

302  F CRMAT! 1H0, 15 X30HSIOESLIP  TO  CONTROL  DEFLECTION) 

DO  331  11=1,5 
ROOTR !  1 1)  =  0.0 
330  ROOTI !I1I=  O.C 
AB=YO/'J 

BB=-A9* ! ALPP4ANRPI»AN0P*  < ! YR/U) -1.0 ) ♦ALOP* ! YP/U) 

CB=AB*  (  ALPP*ANRP-ALRP*ANPP)»ANOPM!YP/UI*ALRP-CYR/U) 


004300 
004310 
004320 
004333 
TOO 04 340 
004350 
004360 
00437C 

004380 

004390 

004400 

004410 

004423 

004430 

004440 

004450 

004460 

004470 

004480 

004490 

004500 

004510 

00452C 

004530 

Q0454Q 

004550 

004560 

004570 

004580 

QQ459Q 

004600 

004610 

004620 

004630 

QQ464Q 

004650 

00466C 

004670 

004680 

034690 

004700 

004710 

004720 

004730 

004740 

004750 

034760 

004770 

004780 

004790 

004800 

004810 

004620 

004830 

004840 

004850 

004660 

004870 

004880 

004890 
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1  *ALPP*ALPP*IGSG/U)  )  *ALOPM  ( YR/U)  *ANPP- ( YP/U)  *ANRP-ANPP  004900 

2  ♦ (GCG/U) ) 

004910 

DB=IGCG/U»*  IALRP*AN0P-ANRP»ALDPIMGS6/U)» 

(  ALOP* ANPP-  004920 

1  ALPP*ANOP> 

004930 

B(1)=A9 

004940 

S(2>  =  89 

004950 

B<3>=CB 

004960 

8  (4) =09 

004970 

I F  (8  ( 1 ) ) 6  2»  63*62 

004980 

63 

N  =  2 

004990 

8(11=3(2) 

005000 

B (2)=B(  3) 

005010 

B(3)=B(4) 

005020 

GO  TO  84 

005030 

62 

N=3 

005040 

84 

CALL  OMULR  (8,N,R00TR0,R00TI0> 

005050 

M=2 

00506b 

GO  TO  66 

005070 

67 

IF (N-2) 64*65,64 

005080 

65 

IF(l.E-2-ABS(R00TI (1)1)41,42,42 

005090 

41 

WB=SQRT  (R00TR(1I**2+R00TH1)  **2) 

0051Q0 

ZB=-ROOTR (1 ) /HB 

005110 

WRITE  (6, 30 ) ZB*  WQ 

005120 

30 

F  ORMA  T( 1H0*7X,4HZB  =E14. 6,7X*4HWB  =E14.6) 

005130 

GO  TO  81 

005140 

42 

ROOTP ( 1 ) =-R  OOTR ( 1 ) 

005150 

ROOTR (2)=-R00TR(2) 

005160 

WPITE  ( 6, 29) POOTR (1) ,R00TR(2) 

005170 

29 

FORMAT! 1H0,4X,7H1/T81  =£14. 6,4X, 7H1/TB2  = 

E14.6)  005180 

GO  TO  81 

005190 

64 

IF(l.E-2-ABS(ROOTI(l) ) ) 43,44,44 

005200 

43 

W9i=SQRT  (ROOTP! l>**2*ROOTI 1 1) **2> 

005210 

ZBls-ROOTRC 1) /WB1 

QQ5220 

ROOTR(l) =-R00TR<3) 

005230 

WPITE  (6, 152) Z91,WB1,R00TP<3) 

005240 

152 

FORMAT! 1H0,7X,5HZ8  =El4.6,5X,5WW8  = 

E14. 

6,5X,7H1/TB1  =€14.6)  005250 

GO  TO  81 

005260 

44 

IFC1. E-2-ABS (ROOT I (2) )) 45,46,46 

005270 

45 

WB2=SQRT(R00TR(2) ** 2*ROOT I ( 2 ) ** 2 ) 

005280 

ZB?=-ROOTR ( 2 ) /WB2 

005290 

POOTP(l)=-ROOTR(l) 

005300 

WPITE  (6,151)R00TR(1) ,Z82,WB2 

0 05  310 

151 

F  ORMAT! 1H0,7X,7H1/TB  =E14. 6,5X,5HZB 

=E14 • 6,5X , 5HWB  =E14.6)  005320 

GO  TO  81 

005330 

46 

OO  47  1=1,3 

005340 

47 

ROCTR!I)=-ROOTR(I> 

005350 

WPITE (6, 150) (ROOTR! I) ,1=1,3) 

005360 

15  0 

F ORMAT! 1H0, 5X,7H1/TB1  =E14. 6,5X , 7H1/TB2  = 

E14.6,5X,7H1/T83  =E14.6>  005370 

81 

WRITE  (6,303) A0,88,CB,O9 

005380 

103 

FORMAT! 1H0, 3X4HAB  =E 12. 4, 3X4H8B  =£12. 

4, 3X4HCB  =E1 2. 4,  005390 

1  3X4H0B  =E12.4) 

005400 

ROLL  TO  CONTROL  DEFLECTION  NUMERATOR 

005410 

WRITE  (6,304) 

005420 

30  4 

FORMAT! 1H0,  15X32HROLL  ANGLE  TO  CONTROL  DEFLECTION)  005430 

00  331  11=1,5 

005440 

ROOTR(Il)  =  0.0 

005450 

3.11 

ROOTI ! I 1 )  =  0.0 

005460 

A  D= ( Y  0/ U) *ALBDP*ALOP*t 1. 0-YVD) 

00547C 

BD=(YO/U)  *(ALBP-ANRP*ALBDP4-ALRP*ANBDP)  ♦  mNOPMALRP-  0  0  5480 

1  ALBOP* (1.0-f YR/U) )-ALRP*YVO) »ALDP* (- 

ANRP 

-YV ♦ ANRP*YVO  005490 

120 
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2  ♦ANBOP*  ( 1* 8- ( YR/U) ) I 

CP=IYD/U)*(ALRP*AN0P-ANRP*ALBPI*ANOPM-ALRP*V¥- 

1  ALBPM 1. a- (YR/UI I ♦ALBOP*  (GSG/U) I ♦ALOP* <ANRP*YV» ANBP* 

2  Ci.O-CYR/UII-ANBOPMGSG/U)) 

DP*(GSG/U>MANOP*ALBP-ALDP*AN0P) 

P(1)*AP 

P(2I*BP 
P(3)=CP 
P  *4)  =  DP 

IF(p*l) )68, 69,66 
69  N=  2 

P  (1)  =  P*  2) 

P*2)=P*3) 

PI3)=P*4) 

GO  TO  125 
66  N=3 

125  CALL  OMULR  IP,N,ROOTRO,ROOTIO) 

M=3 

GO  TO  66 

72  IFIN-2I70.71.70 

71  IF(1.E~2-ABS(R00TI<1)))68,49,49 

48  WP=SQRT  (ROOTR«1I**2^ROOTU1>**2> 

ZP=-ROOTR*l)/HP 
Ms HP/ MO 

WRITE  (6,32)  ZP, WP,W 

32  FORMAT* 1H0,7X,4HZP  =  E14. 6,7X,4MWP  =£14. 6,5X, 'WPHl/WDR  =*E14.6) 

GO  TO  82 

49  ROOTRCl»=-ROOTR(l) 

ROOTR*2>=-ROOTR<2) 

WRITE  *6,31>R00TR*1> ,R00TR(2> 

31  FORMAT* 1H0,4X,7H1/TP1  =E14. 6,4X,7H1/TP2  =E14.6) 

GO  TO  8  2 

73  IF  (l.E-2-ABS<ROOTm)  1)50,51,51 
5C  WP=SORT (ROOTR(l) ••2+R00TI *1 ) *•£ ) 

ZP=-ROOTR(l)/WP 

W=WP/WQ 

R  OOTR 1 3 ) = -R OOTR  *  3 ) 

WRITE  *6,85>ZP,WP,R00TR*3),W 

85  FORMAT* 1H0,4X4HZP  =E  14. 6, 7X4HWP  =fci4. 6, 7X7H1/TP  =E14.6, 

1  5X10HMPHI/WOR  =E14«  6) 

GO  TO  82 

51  I F* 1, E-2-A8S  f ROOTI *  2 ) ))52.53.53 

52  WP=SGRT  *R00TR*2) **2*R00TI *2) **2) 

ZP=-ROOTR(2)/WP 

W=WP/WO 

ROOTR*ll=-ROOTR*i) 

WRITE  *6,25)ROOTR*i) ,ZP,WP,W 

25  FORMAT* 1H0*4X,7M1/TP  =E14. 6, 7X ,4HZP  =E14. 6, 7X, 4MWP  =£14.6, 

1  5X10  HWDH I/WOR  =E14.6) 

GO  TO  82 

53  00  40  1=1,3 

40  ROOTR(I)=-ROOTR*I> 

WRITE  *6,26)  (ROOTRfI) ,1  =  1,3) 

26  FORMAT* 1H0,4X,7H1/TP1  =E14. 6.4X,7H1/TP2  =E14 .6 ,4X »7H1 /TP3  =E14.6) 
82  W°ITE  *6,305) AP, BP, CP, DP 

305  FORMAT* 1H0, 3X4HAP  =E12. 4, 3X4MBP  =E1 2. 4, 3X4HCP  =E12.4, 

1  3X4HOP  =E12 • 4) 

C  YAW  RATE  TO  CONTROL  OEFLECTION  NUMERATOR 

WPITE  *6,306) 

106  FORMAT* 1M0,15X3CHYAW  RATE  TO  CONTROL  OEFLECTION) 


0055QQ 

•05510 

••5520 

•05530 
005540 
005550 
005560 
005570 
005560 
005590 
005600 
005610 
005620 
005630 
005640 
005650 
005660 
005670 
005680 
005690 
005700 
005710 
005720 
005730 
005740 
005750 
005760 
005770 
005760 
005790 
005800 
005810 
005820 
0Q5630 
005640 
005850 
035860 
005670 
005880 
005890 
005900 
005910 
005920 
005930 
805940 
Ou  5950 
005960 
005970 
005980 
005990 
006000 
006610 
006020 
006030 
006040 
006050 
006060 
006070 
006060 
006090 


121 


AFFDL-TR-78-203 


LATERAL -DIRECT IONAL  PROGRAM  LISTING 


DO  332  11=1,5 
ROOTRdll  =  O.Q 
332  ROOTI(Il)  =  0.0 

AR=( YO/U) *AN8DP*A  NDP* (1.0-YVD) 

BR=(YD/U>*( AN8P-ALPP*AN8DP*ANPP*AIBDP) 

1  ♦  ANOPM-YY-ALPP* ( l.O-YVOI -ALBOP* ( YP/U1 ) 

2  ♦ALOP»(ANPP*ANBOP*( YP/Ul -ANPP*YVDI 
CR=(YD/U) *( ALBP*ANPP-ANBP*ALPP| 

1  fANOP*  <YV*  ALPP-ALBP*  <YP/U)-ALBOP* IGCG/U) ) 

2  ♦ALDPMANBP*  (YP/U I  -ANPP* YV*ANBOP*  (GCG/UII 
DR=  (  GCG/U) * ( ALDP*ANBP-ANDP*ALBP> 

RA(1)=AR 
R  A(2) =BR 
RAC3»=CR 
R  A (4) =OR 

IFCRA(l) I  7 4,75,74 

75  N  =  2 
RAC1)=RA(2) 

R A(2)=RA(3) 

R  A (31 =RA (41 
GO  TO  126 

74  N  =  3 

126  CALL  QMULR (RA ,N,ROOTRO*ROOTl 01 
M=4 

GO  TO  66 

73  If <N-2I76,77,76 

77  IF(l.E-2-ABS(R00TI(ll ) 155,56,56 
55  WP=SORT (ROOTR (1»**2*R00TI (i>  **2) 

ZR=-ROOTR ( 1 ) / HR 
WRITE (6 ,341 Z«,WR 

34  FORMAT( 1H0, 7X4HZR  =E14.6, 7X4HWR  =£14.6) 

GO  TO  83 

56  ROOTR tl> = -ROOTR tl> 

P  OOTP (2)=-R00TR(2) 

WPITE(6, 33) POOTR(l) , P00TR(2) 

33  FORMAT!  1H0,4X ,7H1/TR1  =E14.6,4X,7H1/TR2  =E14.6) 

GO  TO  83 

76  IF(l.E-2-ABS(R00TI(l) 1)57,58,58 

57  WR=SQRT(R00TR«1)**2*R00TI(1) **2) 

ZP=-ROOTR(l)/WR 

R OOTR  ( 3  )  =•  ROOTR  ( 3 ) 

WRITE(6,86)  ZR  » WR, ROOTR ( 3 ) 

86  FORMAT! 1HC*4X4HZR  =E 1 4. 6, 7X4HWR  =£14. 6, 7X7H1/TR  =E14.6) 

GO  TO  33 

58  IF(l.E-2-A0S( ROOT  1(2) )  178,79,79 

78  WRrSQRT (P00TR(2)**2+R00TI(2) **2) 

ZR=-ROOTR(2) /WR 

ROOTR(l I = -ROOTR (1) 

WRITE (6,27) ROOTR ( 1 ) , ZR,WR 

27  FORMAT! 1H0,4X,7H1/TR  =E14. 6 , 7X4HZR  =E14. 6, 7 X4HWR  =E14.6> 

GO  TO  83 

79  00  88  1=1,3 

88  ROOTR(I) =-ROOTR(I) 

WRITE (6, 23) ROOTR! 1) , ROOTR (2) ,ROOTR(3> 

28  FORMAT! 1H0, 4X,7H1/TR1  =E14. 6,4X, 7H1/TR2  =£ 14 .6 • 4X ,7Hi/TR3  =E14.6) 

83  WRITE(6,307) AR,BR,CR,OR 

307  F CRMAT! 1H0,3X4HAR  =E 13. 5, 2X4H0R  =£13. 5, 2X4HCR  =E13.5, 

1  2X4H0R  "*E13.  5) 

IF(ABS( AJ  Y| .LT..001I  GO  TO  1005 
C  ACCELERATION  A  Y  PRIME  TO  CONTROL  OEFLECTI ON  NUMERATOR 


006100 
006110 
006120 
006130 
006140 
006150 
006160 
006170 
006160 
006190 
006200 
006210 
006220 
006230 
006240 
006250 
006260 
006270 
006280 
006290 
006300 
006310 
006320 
006  330 
006340 
006350 
006360 
006370 
006380 
006390 
006400 
006410 
006420 
006430 
006440 
006450 
006460 
006470 
006480 
006490 
006500 
006510 
006520 
006530 
006540 
006550 
006560 
006570 
006580 
006590 
006600 
00  6610 
006620 
006630 
006640 
006650 
006660 
006b7Q 
Q0668Q 
006690 
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JXY  =  0  006700 

WRITE  *6,  308)  006710 

108  FORMAT* 1H 0 , 15 X* ACCLEROrtETER  SENSED  SlOE  ACCELERATION  TO  CONTROL  DE006720 

1FLECTION*)  006730 

A  A VP  =  AB«lMAR*ALX  006740 

8 AYP  =  BB*U*BRMLX*U*AR  006750 

C  ATP  =CB*U«-CR*ALX*U*BR-GCG*AP-GSG*AR  006760 

OAYP  =OB*U*DR*ALX*U*CR-GCG*BP-GSG*BR  006770 

c AYP  =U*DR-GCG*CP-GSG*Ck  006780 

311  A  YP *  1 )  =  A  AYP  006790 

AYP ( 2 1  =  B  A YP  036800 

AVP(3»=CAYP  006810 

AYP(4»=0AYP  006820 

A  YP*5 ) =EA YP  006830 

OO  333  11=1,5  006840 

ROOTR (I II  =0.0  006850 

333  ROOTI *  1 1 ) =0 • 0  006860 

IF*AYP<1> >111,132,111  006870 

132  AYP(1 >=AYP(2>  036880 

A  YPf 2)  =  AYP ( 3  >  006890 

A YP*3>  =  AVP( 41  006900 

A YPC4) = AYP( 5  >  006910 

IF*AYP« 1)1121,122,121  006920 

121  N=  3  006930 

GO  TO  127  006940 

122  A  YPf 11  =  AYP*  2 >  006950 

AVP*2>=AYP*3)  006960 

A YP*3 )  =  A YP  *  4  >  006970 

N=2  006980 

GO  TO  127  006990 

111  N=4  007000 

127  CALL  OMULR* AYP, N,ROOTRO, ROOT IO>  007010 

L=1  007020 

M=5  007030 

GO  TO  66  00704C 

80  IF  IN-4)  123, 134,133  007050 

133  IF*l.E-2-ABSIROOTI*l) )> 101,102,  102  007u60 

1C2  IF*l.E-2-ABS*R00TI*2> >>103,104, 104  007070 

103  W1=SQRT  *ROOTR<2)**2*ROOTI*2) **2)  007C80 

Zl=-ROOTR*2)/Wl  007C9U 

GOTO  < 128,126,128,128,129) ,L  007100 

129  IF*l.E-2-ABS<ROOTI*4>)>105,l06,l06  007110 

105  W2=SQRT *R00TRt4)**2*R00TII4>**2)  007120 

2  2=-R00TR  *4 ) / W2  007130 

R  OOTR  *l)=-ROOTR*l>  007140 

WRITE  *6,35) Zl, W1,Z2,W2, ROOTR <1>  00  715  0 

3*  FORMAT* 1H0, IX, 6HZAY1  =E12.4, 5X,6HWA Y1  =£12. 4,5X,6HZAY2  =E12.4,5X,  007160 

1  6HWAY2  =E12.4,3X,8H1/TAY  =E12.4>  007170 

GO  TO  87  007180 

106  GO  TO  *15, 16, 17), L  007190 

15  OO  97  1=1,5  007200 

97  ROOTR  *I)=-ROOTR*I)  007210 

WRITE  <6, 93) ROOTR* 1> , Zl , Wi , ROOTR < 4 > , RO OTR * 5 >  0  0  7220 

93  FORMAT < 1H0, 1X8H1/TAY1  =E12. 4, 5X6HZAY  =E12. 4, 5X6HWAY  =E12.4,  007230 

1  5X8H1/T  A Y2  =E12. 4,5X8H1/TAY3  =E12.4>  007240 

GO  TO  87  007250 

104  GOTO  *  163,163,  163,163,139) ,L  007260 

163  lF*l.E-2-ABS*ROOTI*3))H07,l08,108  007270 

107  W3=SQRT *R00TR*3)**2*R00TI<3>**2>  007280 

Z  3=-ROOTR  *3) / W3  007290 
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GO  TO  ( 155*156* 154*153) »L 

155  DO  98  1=1,5 

98  ROOTR(I)=-ROOTR(I) 

WPITE(6,59)R00TR!i),R00TR(2) , Z3 , M3, ROOTR! 5 ) 

59  FORMAT! 1H0, 1X8H1/TAY1  =E12. 4,5X8H1/TAV2  =E12«4, 5X6HZ AY3  =£12.4, 

1  5X6HWAY3  =E12.4, 5X8H1/TAY5  =E12.4) 

GO  TO  87 

108  I F(l.E-2-ABSIROOTI (4 m 135,136,136 

135  W 2= SORT IROOTR !4)**2*R00TI (4) **2) 

Z2=ABS(R00TRC4) )/M2 

GO  TO  C 157,158,16,16) ,L 

157  00  99  1=1,3 

99  ROOTR ( I ) =-ROOTR ( I ) 

WRITE(6»60)ROOTR(1),ROOTR(2) ,ROOTR( 3) ,Z2,M2 

60  FORMAT! 1H 0 , 1X8H1/TAY 1  =E12. 4,5X8Hi/TA V2  =£12.4, 5X8H1/TAY3  =E12.4, 

1  5X6HZAY  =E12.4,5X6HWAY  =E12.4) 

GO  TO  87 

136  GO  TO  !159, 16 0*161, 162), L 

159  DO  100  1  =  1, N 

100  P  OOTR !I)= -ROOTR II) 

WRITE ! 6 , 37) !ROOTR! I ) ,1=1, N) 

17  FORMAT! 1H0,1X8H1/TAY1  =E12. 4 , 5X8H1/T AV2  =E12.4,5X8H1/TAY3  =E12.4, 
1  5X8H1/TAY4  =E12.4,5X8H1/TAY5  =E12.4) 

GO  TO  8  7 

101  W4=SQRT ( ROOTR !1 ) * *2 ♦ROOT I !i) **2) 

Z4=-ROOTR !1) /W4 

GO  TO  (141,141,141,141,147) ,L 
141  N=N-3 

GO  TO  ! 23,24) ,N 
24  L  =  2 

GO  TO  104 
2.1  L  =4 

GO  TO  104 

156  ROOTR (5 ) =  -R90TR  ( 5 ) 

WPITE (6, 36) Z4,W4,Z3, W3, ROOTR (5) 

36  FORMAT! 1H0, IX, 6HZAY1  = El 2 . 4 , 5X , 6HWA Y1  =E12. 4,5X,6HZAY2  =E12.4,5X, 
16HWAY2  =E12.4,3X,8H1/TAY1  =E12.4) 

GO  TO  87 

158  R  OOTP (1)  =  -R00TR(3) 

WPITE (6  »  36) Z4,W4,Z2,W2,R00TR(1) 

GO  TO  87 

160  WRITE !6,59)RCCTR(3) ,ROOTR!4) , Z4 , W4, ROOTR! 5 ) 

GO  TO  87 

134  1  =  1 

GO  TO  133 

17  ROOTR(l) =-ROOTR(l) 
p  OOTR (4I  =  -R00TR(4) 

WPITE  (6,18) ROOTR ( 1 ) , Z1 , Ml , ROOTR (4) 

18  FORMAT! IPO, 1X8M1/TAY1  =E12. 4, 5X6HZAY  =E12. 4, 5X6H WAY  =E12.4,5X 
18H1/TAY2  =E12.4) 

GO  TO  87 
16  WRITE (6, 19) 

19  FORMAT! 1H0,1X*IF  YOU  GET  TO  THIS  STATEMENT,  YOU  HAVE  A  SERIOUS* 

1  *  PROGRAMMING  OR  LOGIC  ERROR*) 

GO  TO  87 

154  POOTR(l)=-ROOTR(l) 

ROOTPt2)=-ROOTR<2) 

WRITE  ( 6, 20) ROOTR (1) ,R OOTR ( 2 ) , Z3 , W3 
28  FORMAT! 1HQ, 1X8H1/TAY1  =E1 2. 4, 5X8H1/T A V2  =£12 .4 , 5X6HZA Y  =E12.4, 
15X6HWAY  =E 1 2. 4 ) 


907300 

007310 

007320 

007330 

007340 

007350 

007360 

007370 

007380 

007390 

007400 

007410 

007420 

007430 

007440 

007450 

007460 

007470 

007480 

007490 

007500 

007510 

007520 

007530 

007540 

007550 

007560 

007570 

007580 

007590 

007600 

007610 

007620 

007630 

007640 

007650 

007660 

007670 

007680 

007690 

007700 

007710 

007720 

007730 

007740 

007750 

007760 

007770 

007780 

007790 

007800 

007810 

007820 

007830 

007840 

007850 

007860 

007870 

007880 

007890 
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GO  TO  87 
PO  179  1*1*  N 
ROOTR!l)=  -ROOTR  !I) 

WRITE  !6,22) !ROOTR!I> ,I=1,N> 


00  7900 
007910 
007920 
007930 


FORMAT!  1H0.1X6H1/TAY1  =E12.4,5X8H1/TAY2  =E12.4,  5X8M1/TA Y3  *E12.4,  007940 

15X8H1/TAY4  =El2*4l  007950 

GO  TO  87  007960 

WRITE  (6,54)Z4,W4,Z3,W3  007970 

FORMAT! 1H0*1X,6HZAY4  =E12.4, 5X, 6HWA Y4  =E12.4,5X,6HZAY3  =£12.4, 5X6H007960 

1WAY3  =£12*4)  007990 

GO  TO  87  008000 

ROOTR ! 3 ) =-ROOTR (3 )  008010 

ROOTR(4l S-R00TRC4)  006020 

WRITE  C6,61)Z4, W4 .ROOTR < 3) , ROOTR (4)  006030 

FORMATI 1H0, 1X6HZAY  =  E12. 4, 5X6H WA T  =E12.4,5X8H1/TAY1  =E12. 4, 5X, 8HQ08C40 

11/TAY2  =£12.4)  008050 

GO  TO  87  008060 

l =5  008070 

GO  TO  133  096060 

R  OOTR  1 1 )  =  -R  OOTR ( 1 )  008090 

WRITE  ! 6, 13  6) ROOTR! 1 ) *  Zl*  Ml  008100 

FORMAT! 1H0*2X*7H1/TAY  *Ei4.6,5X5HZAY  =E14.6*5X5HW AT  =E14.6)  008110 

GO  TO  87  008120 

00  137  1*1,3  008130 

ROOTR! I ) = -ROOTR ( I )  008140 

WRITE  16,140) ROOTR 11) ,R00TR(2) , ROOTR 131  00  8150 

FORMATC1HO, 2X8H1/TAY1  =E1 4. 6,5X8H1/T  AY2  =£14.6, 5X8H1/TAY3  =E14.6)  008160 


GO  TO  87 

R  OOTR ! 3  I = -ROOTR (3) 

WRITE  16,148) Z4,W4,R00TR!3) 

FORMAT! 1H0,2X5H7AY  =E14.6 » 5X5M WA Y  =£14. 6, 5 X7H1/TA V  =E14.6) 

WRITE  ! 6 , 30  9> AAVP,BAYP,CAYP, OAYP,£A YP 

FORMAT(1HO,1X6HAAYP  =£13. 5,2  X6H8AYP  =E1 3. 5 , 2X6MC A YP  =E13.5 
1  /2X6H0AYP  =E13.5,2X6H£AYP  =E13.5) 

TF!JXV.EQ.l)GO  TO  1C05 
WRITE (6*310) 

0  FORMAT! 1H0,15X*INERTIAL  SIDE  ACCELERATION  TO  CONTROL  DEFLECTION*) 
A  AVP  =AB*U*AR*ALX 
BAYP  =BB*U*9R*ALXMJ*AR 
C  AVP  =CB*U>CR*ALXfU*BR 
0  A YP  =db*u*o°*alx*u*cr 
E  AVP  =U*OR 
J  X  Y=1 
GO  TO  311 

5  IF(IA8S!I0PT) .NE.2)GO  TO  113 


CALL  AOPT(Jl) 

PREVIOUSLY  CALCULATED  -  CON, CONA , COM, ANUM , ADEN, OTR 


RUDDER 

IFfJl.EQ.l.  AND.  JJXX.EO.DGO  TO  230 

IF!  Jl.EQ.DGO  TO  250 

YO=YOR 

ALOP=  ALORP 

A  NOP=  ANDRP 

IF!YD)2C5,2C6,205 

IF!ALD°)205,207,205 

IF1ANO®) 205, 208,205 


098170 

098180 

098190 

008200 

008210 

008220 

008230 

008240 

00825C 

008260 

008270 

008280 

008290 

008300 

0a63ir 

008320 

008330 

098340 

008350 

008360 

908370 

008380 

006390 

008400 

008410 

008420 

008430 

008440 

008450 

006460 

008470 

008480 

008499 
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205  Jl  =  l  006500 

WRITE  (6,361  RUN  006510 

36  F0RMATI1H1,2X,8HRUN  NO.  A3, 5X22HRU00ER  NUMERATOR  ROOTS)  008520 

GO  TO  52  006530 

208  WRITE  (6,209)  RUN  006540 

209  F  ORMAT ( 1H1, 5X8MRUN  NO.  A3 , /1H0 , 10X60HTHE  RUDDER  NUMERATOR  ROOTS  AN008550 

10  CHARACTERISTICS  ARE  ZERO.  )  006560 

GO  TO  250  008570 

230  WRITE (6,231)RUN  008560 

231  F  ORMA T(1HI,5XSHRUN  NO.  A 3 , 5X*COUPLI NG  NUMERATOR  ROOTS*)  008590 

JJXX=0  006600 

00  232  11=1,5  008610 

ROOTR (1 1 ) =0  .  008620 

232  ROOTI (111=0.  008630 

WRITE (6,233)  008640 

233  FORMAT)  1H-,15X*PHI  TO  AILERON,  BETA  TO  RUOOER*)  008650 

ALNLN=ALORP»ANDAP-ALDAP*ANDRP  008660 

YNVN= (YOR*ANDAP-YOA*ANDRP) /U  00 8670 

YLYL= ) YOR*ALOAP-YOA*ALORP)/U  008660 

A  PB  (1  )  =  YL  VL  008690 

APB(2I  =  ALNLN*  (l.-YR/U)  *YNYN*ALRP-YLYL»ANRP  008700 

AP9(3)=-GSG*ALNLN/U  008710 

IF(APB(3) .EQ.O.)GO  TO  234  008720 

N=2  008730 

CALL  DMULR1 APB, N,ROOTRO,ROOTID)  008740 

MM=1  008750 

GO  TO  9  008760 

8  IF(ABS(ROOTI(l) ) ,LT. .  0  00  1 ) GO  TO  236  008770 

WPB=SQRT (ROOTR ( 1) **2 *ROOTI ( 1 ) *• 2)  008780 

ZPP=-ROOTR( II 7WPB  008790 

WRITE(6,235)ZPB, WPB  008800 

235  FOPMAT)  1H0.3X5HZPB  =E14.  6,5X5HWPB  =E14.6)  006810 

GO  TO  238  008820 

234  ROOTR  (1)=APB(2)/APB(1)  008830 

IF(APB(2) .EO.O.OO.OR.AP8(3) .E0.0.D0)  ROOTR(1)=0.  008840 

WRITE(6.237)R00TR(1)  00  8850 

237  FORMAT) 1H0, 4X7H1/TPB  =E14.6  )  008860 

GO  TO  238  008670 

236  ROOTR(1)=-ROOTR(1)  008880 

R00TR)2)=-R00TR(2)  008890 

WRITE (6,2 39)R00TR)1) ,ROOTR(2)  008900 

239  FORMAT)  1H0 , 3X*1 /TPB1  =*E14.  6,5X*1/TPB2  =*E14.6)  008910 

238  WRITE(6, 240 ) APB(l) ,APB(2) ,APB(3)  008920 

240  FORMAT! 1H0,3X*APB  =*D14.6,5X*BP8  =• 014. 6, 5 X*CPB  =«D14.6)  008930 

OO  241  11=1,5  008940 

P  OOTR ( 1 1 ) =0 •  008950 

241  ROOTI (111=0,  008960 

C  PHI  TO  AILERON,  PSI  TO  RUOOER  008970 

WRITE  < 6 , 242 )  008980 

242  FORMAT! 1H-, 15X»PHI  TO  AILERON,  PSI  TO  RUDDER*)  008990 

APP=ALNLN*(YV0-l.l-YNYN»AL8OP*YLYL*ANBOP  009000 

BPP=ALNLN*YV-YNYN»ALBP*YLYL*ANBP  009010 

ROT=B“°/APP  809020 

IF (APR. EQ.O . . OR .BPP.EO.O. )  ROT=0.  009030 

WRITE!6,243)R0T  009040 

243  FORMA  T( 1H0, 4X7H17TPP  =E14.6)  009050 

WRITE (6, 2 44) APP ,8PP  009060 

244  FCRMAT(1H0,3X*APP  =*E14. 6, 5X*BPP  =*E14.6///15X,  009070 

1  »PSI  TO  AILERON,  BETA  TO  RUDDER*)  009080 

0  PSI  TO  AILERON,  BETA  TO  RUDDER  009090 
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APSBf II  =  YNYN 

APS3(21  =ALNLN*YP/U-YNYN*ALPP*YLYL*ANPP 

APSB ( 3) =GCG* ALNLN/U 

N=2 

CALL  DMULR(APS8,N,R00TRQ,  ROOTIOI 

M*=2 

GO  TO  9 

6  IF(ABSCROOTHll)  .LT..0001IGO  TO  246 
WPSB  =SQRT( ROOTR ( 1) **2+R00TI (i) **2> 

ZPSB  =-ROOTR(l)/WPSB 
WRITE <6. 2471 ZPSB, WPSB 

247  FORMAT? 1HQ, 3X6H ZPSB  =E14. 6,4X6HWPSB  =E14.6> 

GO  TO  248 

246  ROOTR(il=-ROOTR(ll 
R00TRC2)=-R00TR(2) 

WRITE(6,249IR00TR(1) tR0OTP(2> 

249  FORMAT ( 1H0, 3X*i/TPS8l  =*E14. 6,5X*l/TPSB2  =*£14.61 

248  WRITE «6 ♦ 251 ) A PSB( 1), APSB (21* APSB C3) 

251  FORMAT! 1H0, 3X*APSB  =*014. 6, 5X*BPS8  =*014. 6# 5X*CPSB  =* 014. 6///15 X * 
1* PHI  TO  AILERON,  ACCELERATION  TO  RUODERM 

00  252  11=1,5 
POOTRII 1>=0. 

252  ROOTI(I1>=0. 

APAY(1»=U*APB(1) *ALX*APP 

A PAY ( 21 =  U* APB (2 1 *ALX*  BPP+U*  A  PP 
A  PA Y( 31 =U»APB(3)*U*BPP-GSG*APP 
APAYf 4) =-GSG*BPP 
N  =  3 

IFCAPAY(4I.EQ.i)OOIN=2 

IF! APAYf 1I.NE.O.OQ1GO  TO  254 

APAY ( 1) =  A°A Y  <  2 > 

APAYf 2) =  APA  Y ( 3) 

APAY(3I=APAY(4I 
IF(APAY(4).EQ.O.OO»GO  TO  255 
N  =  2 

254  CALL  DMULRf AP A Y , N.ROOTRD, ROOTIO ) 

MM =3 

GO  TO  9 

5  IF(ABS(ROOTI(1M.LT..0001)GO  TO  257 
WPAY  =SQRT(R00TI(l)**2*R00TRfi)**2> 

Z  PAY  =-ROOTR( 1)/WPAY 
R00TR(3I=-R00TR(3) 

I F ( N.EO . 2 ) ROOTR ( 3 ) =0 • 0 

WRITE (6, 258  I ZPA Y, WPA Y,ROOTR ( 31 

258  FORMAT* 1H0,3X*ZPAV  =*E14. 6,5X*WPA Y  =*£14. 6, 5X*i/TPA Y  =*E14.6) 

GO  TO  260 

257  IF(ABS(R00TI(2) » .LT..0001IGQ  TO  259 
WPAY=SQRT (ROOTR(2I**2*ROOTI(2I **2) 

7 PA Y= -ROOTR ( 2 )/WPAY 
R  OOTR (1I=-R00TR(1) 

WRITE (6, 258 I ZP A Y,WP AY, ROOTR (II 
GO  TO  260 

259  R OOTR ( 1 )  =  -R  00  TR  ( 1 ) 

R  OOTR (21= -ROOTR (21 
R00TR(3|= -ROOTR (31 
IF(N.EQ.2)ROOTR(3)=0.0 
WRITE  *6 , 261 )  (ROOTR(I) ,1  =  1,31 

261  FORMAT! 1H0,3X*1/TPAY1  =*£14. 6 ,5 X*l/ TPA Y2  =*E14.6,5X 
1* 1/TP  AY  3  =*E14.6I 
GO  TO  260 


009100 
009110 
009120 
009130 
009140 
009150 
009160 
009170 
009180 
009190 
009200 
009210 
009220 
009230 
009243 
009250 
009266 
00 927 C 
009280 
009290 
009300 
009310 
009320 
009330 
009340 
009353 
009360 
009370 
009380 
009390 
Q094QQ 
009410 
009420 
009430 
009440 
009450 
009460 
009470 
009480 
009490 
009500 
009513 
009520 
009530 
009540 
009550 
009560 
009570 
009580 
009590 
009606 
009610 
009623 
009630 
009640 
009650 
009660 
009670 
009680 
009690 
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255  ROT=APAY<3)/APAY(2) 

IF(APAV(3).EQ.O.OO.OR.APAY(2)  .EQ.U.OO i  ROT=0. 

WRITE t&,261)P0T ,RZERO,RZEPO 
260  WRITE <6*262) <  APAY (II « 1=1 * 4) 

262  FOPNAT( 1H0, 3X*APAV  =*D14. 6, 5 X*BPA Y  =* 01 4,6,5 X* CPA Y  =*014.6* 
15X*0PAY  =*014.6///15X*PSI  TO  AILERON,  ACCELERATION* 

2*  TO  RUOOER*) 

00  263  11=1,5 
ROOTR  (1 11 =0.0 

263  ROOTI <111=0.0 
APAY \ II =U*APSB<1) 

APAYC21  =U*APSB<2) 

APAV<3)=U*APSB<3) *GCG*APP 
APAY  <  4) =GCG*BPP 

N  =  3 

IF<APAY(4I.EQ.O.OO»N=2 
IF(APAY«1).NE.O.OO)GO  TO  264 
APAY<1)=APAY<2) 

APAY(2)=APAY(3) 

APAY<  3) =APAY<4> 

IF(APAY(4).EQ.O,00)GO  TO  265 
N  =  2 

264  CALL  OHULR< APAY,N,ROOTRO,ROOTIO) 

MM=4 

GO  TO  9 

4  IF(ABS<ROOTI<il).LT..0001)GO  TO  267 
W  SAY  =  SORT (R  COTR ( 1) **2*R00T Ifl)**2) 

ZSAY=-R00TR(1)/WPAY 

R00TR(3)=-R00TR<3) 

IFIN.EQ. 2IR00TR (3)=0 .0 
WRITE (6,266) ZSAY, WSA Y , ROOTR < 31 
GO  TO  270 

268  FORHATf 1H0, 3X*ZPSAY  =*E14.6,5X* WPSA Y  =*E14. 6, 5X*1 /TPS AY  =*E14.6) 
267  1F<ABSIROOTII2)).LT..0001)GO  TO  269 

W  SA Y=  SORT (R00TRC2) **2  *ROOTl <  2) **2) 

ZSAY=-ROOTR(2)/WSAY 

Rf)0TRt3)=-R00TR(3) 

WRITE <6, 268) ZSA Y, WSA Y, ROOTR ( 31 
GO  TO  270 

269  R OOTR ( 1 )  = -ROOT® ( 1 ) 

ROOTR (2) = -ROOTR (2 ) 

ROOTR (3) =-R00TR(3) 

IF(N.EQ.2)ROOTR(3)=O.C 

W  R ITE (6,271)  (ROOTR (I ) ,1=1,3) 

271  FORMAT( 1H0,3X*1/TPSAY1  =*E14.6,5X*1 /TPSAY2  =*E14.6,5X 
1*1/TPSAY3  =*E 14,6) 

GO  TO  270 

265  ROT=APAY(3) /APAY(2) 

IF<APAY(3).EQ.a.OO.OR.APAY(2) .EQ.O.OO)  ROT=0. 

WRITE (6,271)R0T,RZER0,RZER0 

270  WPITE(6,272) ( AP A Y< I ) , 1=1 , 4) 

272  F0RNAT( 1H0, 3X*APSAY  = *014 .6,5X* BPSAY  =*014. 6,5X*CPSAY  =*D14.6,5X, 
1*  PPSA  Y  =*014.6,///15X*ACCELERATI0N  TO  AILERON,* 

2*  BETA  TO  RODDER*) 

0027311=1,5 
ROOTR(Il) =0. 

273  R  OOTI I T 1 ) =0 • 

APAY(1)=ALX*APSB(1) 

APAY (2) =ALX*APSB(2) *U*APSB(1 ) 

A  PAY (3)=ALX*APS9l3>*U*A°SB(2)*GSG*APSB(l)*GCG*APB(i) 


009700 
009710 
009720 
009730 
009740 
009750 
009760 
00977C 
009780 
009790 
009600 
009810 
009820 
009830 
009840 
00985Q 
009660 
009670 
009880 
009890 
009900 
009910 
009920 
009930 
009940 
009950 
009963 
009970 
009980 
009990 
010000 
010010 
010Q2Q 
010030 
010040 
010050 
010060 
010070 
010080 
010090 
01C100 
010110 
010120 
010130 
01G140 
010150 
010160 
010170 
010180 
0 10 190 
010200 
010210 
010220 
010230 
010240 
010250 
010260 
010270 
010280 
010290 


128 


lateral-directional  program  listing 


APAY (4) =U*APSPC3) ♦  GSG* APSB f 2 1 ♦GCG*AP0 ( 2 1  010  300 

N=3  010310 

IF(APAY(4>.EQ.O.OO)N=2  010320 

IFfAPAY(i).NE.O.OQ)GO  TO  274  010330 

APAYC1)=APAY(2>  010340 

APAYI2>=APAY(3>  010350 

A  PAY C 3) =  APAY (4)  010360 

IF(APAY(4).EQ.O.DO)GO  TO  275  010370 

N  =  2  010  38  0 

274  CALL  OMULRf APAV,N,ROOTRO,ROOTIOI  010390 

HM=5  010400 

GO  TO  9  010410 

3  IF(ABSfROOTICl)).LT..0031)GO  TO  277  010420 

WAY8=SQRT (R00TR(1)**2*R00TI(1)**2)  010430 

2  AYB= -ROOTR ( 1 )/ WA  VB  010440 

ROOTRC3) =-ROOTR (3)  010453 

IFIN.EQ.2)ROOTR(3>=0.0  010460 

WRITE  16*278) ZAYB, WAYB*ROOTR( 3)  010  470 

278  FORMA TC lHO,3X*ZAYe  =*£14. 6, 5X*W AYS  =*E14. 6,5X*1/T AYB  =*E14.6)  010480 

GO  TO  280  010490 

277  IFCABS(R00TI<2» »  .LT..OOOHGO  TO  279  010500 

W  AYB  =SQRT(ROOTR(2)**2*ROOTT<2)**2)  010510 

2 AYB  =-ROOTP (?) /WAYS  010520 

R  OOTR ( 1 ) = -R  00  TR ( 1 )  010530 

WRITE C 6, 2781 ZAYB, WAYB,ROOTR(l>  01C540 

GO  TO  280  010550 

279  ROOTR<l»=-ROOTR(l)  010560 

ROOTR  <  2 )  =  -ROOTR (2 )  010570 

R00TR(3I=-R00TRC3)  010580 

IF(N.EO.2)ROOTR(3)=0  010590 

WRITE (6, 2811 <  ROOTRt I ) ,1=1,3)  010600 

281  FORMAT* 1H0 , 3X,*i/TAYBl  =* El 4.6*5  X*l/T  AY 32  =*E14,6,5X  010610 

1*1/TA Y83  =*£14.6)  314620 

GO  TO  280  fil«630 

27*5  P0T=APAY(3) /ADAV(2)  010640 

IF (APAY (1) • EO.O.OQ.OR. A° A  Y ( 2 ) .EQ.u.OO)  ROT=0.  010650 

WRITE (6,281) ROT, RZERO,R7EPO  010660 

280  WRITE (6, 282) ( APAY(I) , 1=1,4)  010670 

282  FORMAT* 1H0, 3X*AAYB  =*014. 6,5X*BA Yd  =*014. 6, 5X*CAYB  =*014.6,  01C680 

15X*DAYB  =*!U4.6>  010690 

GO  TO  259  010700 

9  DO  7  11=1,5  010710 

ROOT  I  III)  =ROOTIO(  ID  010720 

7  POOTR(Il) =ROOTRO(I1)  01C730 

GO  TO  (8,6,  5,4,  3)  MM  010740 

END  010750 

SUBROUTINE  CHNG(JI  010760 

C  0MM0N/B8/®  HO,U,S*GWT,SPAN,IXB*G,ALFItGAMA,LX,CYB,CYBD,CYP,CYR*  016  770 
A  CYDA,CYO-v , C L B,CLBD , CL P, CLR ,CL DA ,CLPR »  CNB ,CNBO , C NP, CNR,CNOA ,  CNDR , 0 1 078 0 
R  ALFA, ALFV ,PLT, YB,YBO,Yp,YR,YOA,  LB ,LBO,LP , LR ,LDA , LOR ♦ NB , NBD ,  010790 

C  N1**  NR  ,  N DA  *  NCR  ,LBP,L80P*LPP*LRP»LDAP,L0RP,N8P,  NBOP,  NPP,  NRP,  NOAP  ,  0  1C  800 
0  NORP, I  ZB, I XZB , YQR  010810 

RFAL  I X B ,LX  ,L B,L80,L P ,LR ,LOA ,L OR ,NB ,NBD ,NP , NR, NO  A , NDR , LBP ,LBDP,  0 10 820 
fl  LPP,LRP,LOAP, LORP,NBP, NBOP, NPP, NRP, NOAP, NORP, IZB.IXZB  Q1G83C 

NAMELIST/CMANGF/RHO,U.S,GWT,SPAN,lXB,G, ALFI,GAMA,LX,CYB,CYBO,CYP,  010840 
A  CYR»OYQA,CYOR,CL8,CLBO,CLP ,CLR*CLOA,CLDR,CNB,CNBD.CNP,CNR,CNOA,  01C850 
B  CNOR, ALFA ,ALFX,PLT, Y8,YBD,YP,YR ,Y DA , YOR , LO ,L BO  * LP , L R , LDA , LOR ,  010 860 

C  NB*  NBO  ,  NP ,  NR ,  v|OA,  NOR, LBP, L BOP  . LPP,LRP,LOAP,LORP  ,NBP ,N0DP* NPP ,  010  87  0 

0  NRP, NOAP, N0PP,IZ6,IXZB, TEST  010880 

PFA0*5, CHANGE)  010890 
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COMPLEX  COM  ,  ANUM  ,  ADEN 

FUNP<XI  =1./ A*  <AP*X**3*BP*X»*2«-CP*X»OPI 
FUNB!  X)  =1  ./A*(A8*X,'#3*83*X**2*CB*X^D8) 

PT(TI  =XKP»XKPR*EE*MXTR*T)  ♦XKPS*E£**(XTS*T> ♦ 

1  XKPOR*  EE  *• CCON*T)*COS(CONA*T+PSlP/OTR> 

BT(T)=XKB*XKBP*EE**  (  XTR*  T)  ♦XKBS’EE**  (  XTSM  I  ♦ 

1  XK80R*EE**  (CON*T)*COS( CONA*T ♦PSIB/DTR) 
PDA(T»=XKP*T+XKPR*TR*(1,-EE**(XTR*TI I *XKPS*TS* 

1  (l.-EE*MXTS*T)|  ♦CON?*(EE*MCON*T)*(CON*COS(CONA*T«-PSIPR> 

2  ♦CONA*SIN(CONA*T*PSIPRI)*CON3> 

DATA  fWOROi (II ,I=1,3)/21HAILER0N  STEP  INPUT  /  ,  <  W0R02 (11*1  =  1* 31 

A/21HRUOOER  STEP  INPUT  / 

IFdOPT.OT.O.  AND.  Jl.EQ.il  RETURN 
W*ITE<6, 10101 

1010  FORMAT! 1H1.?X,8H0PTI0N  2/2X.2C5H - )//) 

IF(IRCOT-l) 1011,1015,1013 

1011  WRITE  (6, 11)12) 

1012  F0RMAT(/2X,43HN0  COMPLEX  ROOTS.  REQUIREMENTS  OO  NOT  A PPL XI 
RETURN 

1013  WRITE (6,1014) 

1014  FORMAT! /2X,49HC0UPLED  ROLL-SPIRAL  MOOE,  YOU  HAVE  FAILED  OYNAMIC 

*  12H  STABILITY  II 

RETURN 

C 

C  INITIALIZATION 

C 

1015  XTR=-i./TR 
XTS=-1./TS 
EE  =  2.71828 

IFIABStXTSI .Nr.Q.OIGO  TO  1047 
WPITE(6, 10481 

1048  FORMAT! /2X,43HSPIRAL  ROOT  EQUALS  ZERO,  OPTION  2  EQUATIONS 

*  10H  NOT  VALIOI 

RETURN 

C 

C  BANK  ANGLE  RESPONSE  FROM  ROLL  RATE  EQUATION 

C 

1047  CON1--CON 

C0M1=CMPLX(C0N1 ,CONA| 

0£N=C0M*(G0M-XTS)*(C0M-XTPIMC0M*C0M1) 

ROEN=REAL (OEN  1 
AI0£N=AIMAG!0ENI 
PADEN=ATAN2(AI0EN,RDEN)*0TR 
TE(PAOEK.LT.0.0IPAOEN=:PADEN^360  . 

OE NR=  XTR*  (XTR-XTS)M  XTR**2*2.*Z0*W0*X TR*WD**2> 

OENS*XTS*(XTS-XTP) *<XTS**2*2.*ZO*WO*XTS*WD**2> 

C 

C  P  (OSCILLATORY) 7P( AVERAGE  I 

C 

xkp=op/e 

XKPR= FUNP (XTR l/DENR 
IE(OP.NE.O.O)GO  TO  1050 

XKPS=1./A*( AP*XTS**2*BP*XTS»CP> /(l./XTS*OENS) 

GO  TO  1052 

1050  XKPS=EUNP»XTSI/OENS 

1C  52  PNUM=1. 7**(  AP*C0M**3«-BP*C0M**2*CP*C0M*0P) 

RNUN=REAL(PNUM) 

A INUM= A I  MAG ( PNUM) 

XKPl=SQRTf (RNUM**2*AINUM**2I /(R0EN**2*AI0EN**2) I 
XKPDP=?.*XKP1 


011500 
011510 
011520 
011533 
011540 
011550 
011560 
01157  0 
011580 
011590 
011600 
011610 
011620 
011630 
011640 
011650 
011660 
011670 
011680 
011690 
011700 
011710 
011720 
011730 
011740 
011750 
011760 
011770 
011780 
011790 
0118Q0 
011810 
011820 
011830 
011840 
011850 
011860 
011870 
011880 
011890 
011900 
011910 
011920 
011930 
011940 
011950 
011960 
011970 
011980 
011990 
012000 
012010 
012020 
012030 
012040 
012050 
012060 
012070 
012080 
012090 
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P  ANUM=AT  AN2 C  A INUM, RNUM) *OTR 
IFfPANUM.LT.Q.0)PANUM=PANUM^360. 

PSIP=PANUM-PAOEN 

PSIPR=PSIP/DTR 

CON2=XKPOR/CCON**2*CONA**2) 

CON3=CON1#COS  CPSIPR) -CONA*SINCPSIPR) 

T  IM£=  3.  0 
P2=-999 • 

P3=PT (TIME) 

J  =  1 

IFf  IOPT  .GT. 0)  GO  TO  1 
TTHEXCJ)  =  TIME 
P3XXCJ)  =  P3 
POAXXCJ)  =  POACTIME) 

1  DO  1025  1=1*3 

1018  P1=P2 
P2=P3 

TIME=TIME>.1 

P3=PTCTIME) 

J  =  J  ♦  1 

I F  C IOPT • GT. 01  GO  TO  2 
TIMEXCJ)  =  TIME 
P3XXCJ)  =  P3 
POAXXCJ)  =  POACTIME) 

2  IFCP1.NE.-999.)G0  TO  1020 

IFCP3.GE.P2)G0  TO  1018 
WPITEC6* 10191 

1019  FGRMAT*/2X,38HROLL  RATE  REVERSAL,  TRY  ANOTHER  DESIGN) 

GO  TO  1027 

1020  IFCI.EQ.21GO  TO  1021 
IFCP3.LT. P2)G0  TO  1024 
GO  TO  1022 

1021  IFCP3.GT.P2)G0  TO  1024 

1022  IFCTIME.LT. 11.8)  GO  TO  1018 
WRITE  IS* 1023) 

1023  F  ORNA T( /2X* 44HPEAK  ROLL  RATE  OCCURS  AFTER  12  SECONOS,  TIME, 

*  28H  HISTORY  LIMITATION  EXCEtDEO) 

GO  TO  1027 

1024  CALL  PEAKCTIME-.2,TlME-.l,TIME,Pl,P2,P3,TMAXtPMAX,l.) 

TMCII  =  TMAX 

PMCI) =PMAX 
IFfI.NE.2IG0  TO  1025 
IFCZO.GT. .2)G0  TO  1026 

1025  CONTINUE 

POSPAV= (PMCI) ♦PMC  3) -2. ♦PM* 2) ) / ( PM  Cl ) ♦PM ( 3 ) t2 .*PM ( 2) ) 

GO  TO  1027 

10  26  POSPAV=  CPMC 1) -PMC 2) )/C PMCI) ♦PMC  2) ) 

1027  P20P1  =  PMC2) /PM(D 
TENO=  TIME 
JX  =  J 

c 

C  DELTA  9  C  MAX ) 

C 

X  KB=OB/£ 

XKBR=FUNBCXTR)/OENR 

XKBS=FUNBCXTS)/OENS 

BNUM=1./A*C  AB*C0M»*3^BB*C0M**2»CB*C0M»08) 

RNUM=REAL  CBNUM) 

ATNUM=AIMAGCBNUM) 

XKBl=SORT  CCRNUM**2»AINUM**2) /CRDEN**2^AIOEN**2) ) 


012100 

012110 

012120 

012130 

012140 

012150 

012160 

012170 

012100 

012190 

012200 

012210 

012220 

012230 

012240 

012250 

012260 

012270 

012280 

012290 

012300 

012310 

012320 

012330 

012340 

012350 

012360 

012370 

012380 

012390 

012400 

012410 

012420 

012430 

012440 

012450 

012460 

012470 

012480 

012490 

012500 

012510 

012520 

012530 

012540 

012550 

012560 

012570 

012580 

012590 

012600 

012610 

012620 

012630 

012640 

012650 

012660 

012670 

012680 

012690 


m 
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XKBDR=2.*XKB1 

012700 

BANUM=ATAN2 (AIMUM.RNUM) *OTR 

012710 

IFCBANUM.LT.C .0>BANUM=8ANUM*360 . 

012720 

PSI8=  BA  NUM-PADEN 

012730 

PSIBP=PSI9*ATAN2< WOO,CONI*OTR 

012740 

TOOR2=PER/2 • 

012750 

THAXl  =  AHAXlfT0DR2,2. 1 

012760 

bmaxi=bt<tmaxii 

012770 

8MAX=0. 

012700 

BMIN=0. 

012790 

TEST=0. 

012800 

T I  H£=  0.  G 

012810 

9?=-999 . 

012820 

J  =  1 

012830 

B3=9T  CTI HE) 

012840 

IFCIQPT.LT. 01 B3XX< J1  =  B3 

012850 

1031 

B  1=82 

012860 

1C  32 

0  2=83 

012870 

T IME=TI ME 1 

012880 

B3=8T(TIH£) 

012890 

J  =  J  ♦  1 

012900 

IFCIOPT.LT, 0) B3XX(J)  =  83 

012910 

TF  CB1 .N  £• -999. >  GO  TO  1036 

012920 

IFCB3-82I 1033,1034,1035 

012930 

1033 

ITEST=-1 

012940 

GO  TO  1038 

012950 

103** 

Bl=-999. 

012960 

IFCTIME.LT. TMAX1IGO  TO  1032 

012970 

GO  TO  1040 

012900 

1035 

ttest=i 

012990 

GO  TO  1038 

013000 

1036 

IFCITEST.GT.OGO  TO  1037 

013010 

T  F  CB3 .GT. 82  >  GO  TO  1039 

013020 

GO  TO  1030 

013030 

1037 

I F (83.LT • 82 ) GO  TO  1039 

013G40 

1030 

IFCTIME.LT. TMAXl>GO  TO  1031 

013050 

GO  TO  1043 

0 1306  Q 

1039 

CALL  PEAK  IT IME- . 2, TI ME- . 1 , TIME , B1 ,82 , B3 ♦ T MAX ,BM, 1 . ) 

013070 

IFCITEST.LT. 0IGO  TO  1020 

013080 

BMAX=BM 

013090 

GO  TO  1029 

013100 

10  2  6 

BMIN=BM 

013110 

1029 

IFCTEST.EQ.  1. IGO  TO  1043 

013120 

ITEST=-ITEST 

013130 

TEST= 1. 

013140 

GO  TO  1036 

013150 

1041 

BNEG=0. 

013160 

BPOS=0. 

013170 

TFCBMAX1.GT.0.IGO  TO  1055 

013180 

BNEG=BMAX1 

013190 

GO  TO  1056 

013200 

1055 

8P0S=BMAX1 

013210 

10  56 

IFCBMAX .GT.O. )GO  TO  1057 

013220 

BNEG=  AMIN1CBNEG,BMAX) 

013230 

GO  TO  1058 

013240 

1057 

BPOS= AMAXlCBPOS*BMAX» 

013250 

1050 

IFCBMIN.GT.O. >GO  TO  1059 

013260 

RNEG=AMIN1CBNEG,BMIN) 

013270 

GO  TO  1060 

013280 

1059 

BP0S=AMAX1CBP0S»8MIN) 

013290 
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1060  0BNAX=8P0S-BNEG  013300 

GO  TO  1041  013310 

1040  DBMAX=BMAX1  013320 

1041  I FIIOPT •  GE. 0) GO  TO  1054  013330 

1053  IFITIME.GE.TEND)GO  TO  1054  013340 

T IME=TI ME  *•  i  013350 

J  =  J  ♦  1  013360 

B3XXIJ)  =  BTITIME)  013370 

GO  TO  1053  013380 

C  013390 

C  ANGLE  P/B  01  3400 

C  013410 

1054  P  OBN=COM* AN UN  013420 

PBANUM=  AT  AN2 I AIMAGIPOBN) * REA L IPOBN) ) * DTR  013430 

IFIPBANUM.LT.O.  0)  P8 ANUM=sPBANUHf36d •  013440 

PBAOEN=ATAN2<  AI MAG (ADEN) »R£AH  ADEN) ) *OTR  013450 

IF<PBAOEN.LT.O.O»PBADEN=PBAT)EN*-36u.  013460 

APOB=PBANUM-PBAOEN  013470 

C  013480 

C  KD/KSS  013490 

C  013500 

XKDKSS=XKPDR/XKPS  013510 

C  013520 

C  WPITE  OUTPUT  013530 

C  013540 

IF(APOB.LT.O.O) APO0=APOB*36O.  013550 

I F  IPS  IP. GT. 0.0) PSIP=PSIP-360.  013560 

IFIPSIB.GT.0.0)PSIB=PSIB-36C.  013570 

IF(IOPT.GT.O)  GO  TO  3  013580 

WPITE ( 6  * 4 )  013590 

4  FORMAT! 1H  ,31HTIME  HISTORIES  FOR  A  STEP  INPUT//  013600 

1  10X4HT I  ME* 5X 15HP ( T I  *  ROLL  P ATE  ,5 XI 8HPH I ( T ) ,  ROLL  ANGLE,  013610 

2  5X *  1 7HBE TA I T ) »  S IOESL IP/ 10X , 3HSEC, 10 X7H0EG/ SEC , 1 6X3H0EG , 20 X ,  013620 

3  3H0EG//I  013630 


WRITE (6,5) ITIMEXIJ) ,P3XXIJ) ,POAXXIJ) ,B3XX|J) ,  J=1,JX)  013640 

5  FORMAT  (8X,F6.1,6X,E11.4,10X,E11.4,12X,E11.4)  013650 

IFIPLT.GT.O .. ANO. J1.EQ.0)  CALL  PL  TUP ( OATA , TI HEX , P3XX , POAXX,  013660 

1  B3XX, JX,TITLE,RUN,WOROl)  013670 

IFIPLT.GT.O ..AND. Jl.EQ.U  CALL  PL  TUP I  OAT  A , T I  ME X ,P 3XX , POAXX ,  013680 

1  B3XX,JX, TITLE, RUN, W0R02)  013690 

IFIPLT.GT.O.)  IPLT=1  013700 

3  IFIJ1.EQ.1)  RETURN  013710 

WRITE  1 6, 104 2) POSP A V , D0MA X , A POB , PS1 P , PSI B, X KDKSS , XKP, XK B ,POSP A V ,  013720 

1  XKPRfXK8R,oSI0P,XKPS,XK8S,P20Pl,XKP0R,XKBDR  013730 

1042  F  OR MAT  C/2X, 10WPOSC/PA V  =  , E12.4, 7X, 07H0BMAX  =,E12.4,11X,  11HANGLE  013740 
*P/B  =,E12.4,/6X,06HPSIP  * , El 2. 4 , 8X, 0 6HPSI B  =,E12.4,14X,  8HK0013750 

•/KSS  =,E12.4,/8X,04HKP  = ,E12. 4, 10X,04HKB  =,E12.4,6X,  16HPHI  OSC013760 
*/PHl  AV  =  ,E12.4,/7X,05HKPR  =, El 2 .4 , 9X, 05HK BR  =,E12.4,15X,  013770 

•&7HPSIBP  =  ,E12.4,/7X,05HKPS  = ,E12. 4, 9X ,05HKBS  =,E12.4,15X,  013780 

•07HP2/P1  =,E12.4,/4X, 08HMKPPOR  = ,tl2. 4,6X, Q8HMK0POR  =  013790 

*  , El  2. 4)  013800 

RETURN  013810 


FNO  013820 

SUBROUTINE  PE AK IT 1, Y2, Y3 , XI , X2 , X3 ,P I V , POV, PC TPK )  013830 

A=(UY2-Y3IMXl-X2M-lfYi-Y2)MX2-X3)H/<t  (Y2-Y3)  *  013840 

II Yl**2-Y2**2) )-  I IY1-V2) * IY2**2-Y3**2 ) ) )  013850 

B=HX2-X3)-AMY2**2-V3**2))/IV2-Y3)  013860 

C=X1-B*V1-A*Y1**2  013870 

PIV*-B/I2.* A)  013880 

PDV=I4.*A*C-B**2)/(4.*A>  013890 
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If (ABS(l.O-PCTPK)  -.COOl) 1.1, 2 
2  POV=POV*PCTPK 

PIV=PIV*SQRTt  (PCTPK-1. 0) *PDV/A ) 

1  PETURN 

END 

SUBROUTINE  PLCTS(NI 

RETURN 

END 

SUBROUTINE  DMULR ( COE  1 , N, ROOTI .ROOTI 1 ) 

DOUBLE  PRECISION  CO El, ROOT 1, ROOTI 1 

DIMENSION  C0E1I14),RC0T1(12I ,ROO TI H 12) , COE C 7) , ROOTR ( 6) , ROOT I ( 6) 
NN=N+ 1 
no  1  1=1, NN 

1  COE (I I =COEl ( 1 1 

CALL  SMULR(COE,N, ROOTR, ROOT!) 

00  2  1=1, N 
ROOTI  U>=ROOTR(I> 

2  R  OOTI 1 (T)=ROOTI(I) 

RETURN 

FNO 

SUBROUTINE  SMULR  (COE , N1 , ROOTR, ROOT T ) 

C 

C 

c 

C  POLYNOMIAL  ROOT  FINOER  SUBROUTINE  .... 

C 

C  ITERATIVE  METHOD  FOR  POLYNOMIAL  EQUATIONS  •••• 

C 

C  THIS  METHOD  APPROXIMATES  THE  FUNCTION  F(Z>  BY  A  QUADRATIC 
C  WHICH  MAY  , I N  GENERAL,  HAVE  COMPLEX  COEFFICIENTS  AND  DOES  NOT 
C  REQUIRE  A  KNOWLECGE  OF  THE  DERIVATIVE  OF  F(Z)  THOUGH 
C  THF  FUNCTION  F(Z)  MUST  BE  EVALUATED  ONCE  PER  ITERATION  .... 

C 

C  THIS  SUBROUTINE  FINOS  REAL  ANO  COMPLEX  ROOTS  OF  A  POLYNOMIAL 

C  with  real  coefficients  .... 

c 

c 

C  USE  OF  MULLER  SUBROUTINE  .... 

C  1.  CALL  SMULR  (COE , N1 , ROOTR, ROOTI )  .... 

C  2 •  COE  IS  THE  TAG  OF  THE  ARRAY  OF  COEFFICIENTS. 

C  THE  COEFFICIENTS  MUST  BE  OROEREO  FROM  HIGHEST  DEGREE 

C  TO  LOWEST  DEGREE  . 

C  3.  N1  IS  DEGREE  OF  THF  POLYNOMIAL  . 

C  4.  ROOTR  IS  THF  TAG  OF  THE  ARRAY  WHERE  THE  REAL  PARTS 
C  OF  THE  COMPLEX  ROOTS  ARE  STORED  . 

C  5.  RCOTI  IS  THE  TAG  OF  THE  ARRAY  WHERE  THE  IMAGINARY 
C  PARTS  OF  THE  COMPLEX  ROOTS  ARE  STOREO  .... 

C 

C  ALL  ARITHMETIC  IS  IN  THE  COMPLEX  MOOE  .... 

c  therefore  under-flow  is  normal  for  real  roots  .... 
c 

C  MULTIPLE  ROOTS  DECREASES  ACCURACY  OF  THIS  SUBROUTINE  . 

C  WHFN  MULTIPLICITY  IS  FOUR  THE  ACCURACY  DECREASES  TO 
C  ABOUT  TWO  PLACES  .... 

C 

C  RUNNING  TIME  IS  APPROXIMATELY  PROPORTIONAL  TO 
C  DEGREE  SQUAREO  DIVIDED  BY  TWENTY  .... 

C  FOR  DEGREE  ELEVEN  IT  TAKES  SIX  SECONDS 
C 


013900 
013910 
013920 
013930 
013940 
013950 
013960 
013970 
013980 
013990 
0140Q0 
014010 
0 14C20 
014030 
014040 
014050 
014060 
014070 
014G80 
014090 
014100 
014110 
014120 
‘014130 
014140 
014150 
014160 
014170 
014180 
014190 
014200 
014210 
014220 
014230 
014240 
014250 
014260 
014270 
014280 
014290 
014300 
014310 
014320 
014330 
014340 
014350 
014360 
014370 
014380 
014390 
014400 
014410 
014420 
014430 
014440 
014450 
014460 
014470 
014480 
014490 


LATERAL-DIRECTIONAL  PROGRAM  LISTING 


c 

014500 

c 

814510 

C*** 

c 

014530 

c 

014540 

c 

014550 

c 

014560 

DIMENSION  COE(l),ROOTR(ll ,ROOTI(ll 

014570 

c 

014580 

N2=N1*1 

014590 

N4=0 

014600 

I*N1*1 

014610 

19 

IFCCOFCII 19,7,9 

014620 

7 

N4=N4»1 

014630 

ROOTR (N4) =0 .0 

014640 

ROOTI (N4) =0. 0 

014650 

1  =  1-1 

014660 

IFIN4-N1) 19,37,19 

014670 

9 

CONTINUE 

014660 

n 

014690 

10 

AXR=0.8 

014700 

AXI=C.O 

014710 

L  =1 

014720 

N  3=1 

014730 

ALP1R=AXR 

014740 

ALP1I=AXI 

014750 

M  =  1 

014760 

GO  TO  99 

014770 

c 

0 1478  Q 

11 

BET1R=TEMR 

014790 

BET1I=TEMI 

014800 

A  XR=C • 8  5 

01481G 

ALP2R=AXR 

014820 

ALP2I=AXI 

Q1463Q 

H=? 

014840 

GO  TO  99 

014850 

c 

014860 

12 

9ET2P=TEMR 

014870 

BFT2I=TEMI 

014680 

A  XR=0.9 

014890 

ALP3R=AXR 

014900 

ALP3I=AXI 

014910 

H  =  3 

014920 

GO  TO  99 

014930 

C 

014940 

13 

BET3R=TE*R 

014950 

BET3I=TEMI 

014960 

14 

TE1=ALP1R-ALP3R 

014970 

TE2=AL°1I-ALP3I 

014980 

TE5=ALP3R-ALP?R 

014990 

TE6=ALP3I-ALP?I 

015000 

TFM=TE5*TE5*TE6*TE6 

015010 

TF3=<TE1*TF5^TE2*TE6)/TEM 

015C20 

TF4=C  TE2*TE5-TE1*TE6) /TEM 

015030 

TE7=TE3*1 .0 

015040 

TF9-TE3*TE3-TE4*TE4 

015050 

TE10=2.0  *  TE  3*  TE4 

015060 

OF15= TE 7 ’3ET3R-TE4* BET 3 I 

015070 

0F16=TE7*BET3I4TE4*BET3R 

015080 

TF11=TE3*BET?R-TE4*8ET2I*BET1R-0E15 

015090 
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TE12=TE3*BET2I*TE4*BET2R^BETiI-0El6 

015100 

TE7=TE9-1.0 

015110 

TE1=TE9*8ET2R-TE10*BET2I 

015120 

TE2=TE9*BET2I^TE10*BET2R 

015130 

TE13=T£l-BETlR-TE7*BET3RiTElO*BET3I 

015140 

TE14=TE  2-BETlI-TE7*BET3I-TE10*BET3R 

015150 

TE15=DE15*TE3-DE16*TE4 

015160 

TF16=0E15*TE4»DE16*TE3 

015170 

TEl=TEl3*TEl3-TE14*TE14-4.0  • < TEil*TEl5-TE12*TE16) 

015180 

TE2=2.3  *TE13*TE14-4.0  MTE 12ME15+ TE  11*TE  16) 

015190 

TEM=  SQRT(TE1*TE1»TE2*T£2» 

015200 

IF(TEl) 113, 113,112 

015210 

113 

TE4=  SORT (0*5  * < TEM-TE1 ) 1 

015220 

T  E3=0 • 5  *TE2/TE4 

015230 

GO  TO  111 

015240 

C 

015250 

112 

TF3=  SORT  (0.5  MTEMfTEin 

015260 

IF(TE2I 110, 200, 200 

015270 

110 

TE3*-TE3 

015280 

200 

T  E4=0 • 5  *TE2/TE3 

015290 

111 

T  E7=T£1 3+TE3 

015300 

TE8=TE14*TE4 

015310 

TE9=TE1 3-TE3 

015320 

TE 10=TE 14-TE4 

015330 

TE1=2.0  *T£15 

015340 

TE2=2.P  *TE16 

015350 

IF<TE7*T£7»TE8*TE8-TE9*TE9-TE10*TE10»  204,204, 

205 

015360 

20  4 

TE7=TE9 

015370 

TF8=TE10 

015380 

205 

TEM=TE7*TE7+TE8*T£8 

015390 

TE3=(TE1*TE7»TE2*TE8)/TEM 

015400 

TE4=(TE2*TE7-T£1*TE8)/TEM 

015410 

AXR=ALP3R*TE3*TE5-TE4*TE6 

0151*20 

AXI=ALP3I*TE3*TE6*TE4*T£5 

015430 

ALP4R=AXR 

015440 

ALP4I=axt 

015450 

H  =  4 

015460 

GO  TO  99 

015470 

C 

015480 

15 

N6=l 

015490 

C***  1 

38 

IFC  ABS ( HELL) ♦  ABSf BELL) -1, 0 E-20) 18, 1 8, 16 

015510 

16 

TE7=  ABS<AIP3R-AXRI.  ABS ( ALP3t- A XII 

015520 

I F  ITE  7/ (  ABS  ( A XR) ♦  A  BS  t  A  XI )  ) -1 .  OE-7)  1 0 , 18 , 1 7 

015530 

C***< 

17 

N  3=N3 ♦ 1 

015550 

ALP1R  =  ALP2R 

015560 

ALP1I=ALP2I 

015570 

ALP2R=ALP3R 

015580 

A  LP21 55  AL  P3I 

0*5590 

ALP3R=ALP4R 

015600 

A  LP3I  =  ALP4I 

.15510 

BET .R=BET2R 

015620 

BFT1I =  BET  21 

015630 

BET2R=9ET3R 

016640 

8ET2I=BET3T 

015650 

BET3R=TEMR 

015660 

BET3I=TEMI 

015670 

IFC N3 -100)14, 18, 18 

015680 

18 

N4=N4^1 

015690 
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R00TR(N4)=ALP4R  015700 

ROOTICN4)=ALP4I  015710 

N  3=0  015720 

41  IFIN4-N1I  30*37,37  015730 

37  RETURN  015740 

30  IFC  A8S(R00TI <N4I 1-1.0E-5) 10 *10 , 31  015760 

31  GO  TO  (32*10) *L  015770 

32  AXR=ALP1R  015700 

AXI=-ALP1I  015790 

ALP1I=-ALP1I  015000 

M=5  015010 

GO  TO  99  015020 

33  BET1R=TEMR  015030 

8ET1I=TEMI  015040 

AXR=ALP2R  015050 

AXI=-ALP2I  015060 

ALP2Is-ALP2I  015870 

M=6  015080 

GO  TO  99  015090 

C  015900 

34  BET2R-TEM9  015910 

BET2I *TEMI  015920 

A  XR=ALp3R  015930 

AXI*-ALP3I  015940 

ALP3I=-ALP3I  015950 

L  =  2  015960 

H  =  3  015970 

99  TEMR*C0EC1)  015900 

TEMI=0.0  015990 

00  100  1*1*  N1  016000 

TE1*TEHR*AXR-TEMI*AXI  016010 

TEMI*TEMl*AXR*TEMR*AXI  016020 

100  TEHR*TE1*C0EIIM!  016030 

HELL=TEMR  016040 

BELLsTEMl  016050 

42  IF(N4> 102*103*102  016060 

102  PO  101  1*1, N4  016070 

T EMI*  AXR-ROOTR ( I )  016000 

TEH2=AXI-R00TI<I)  016090 

TE1=TEM1*TEM1>TEM2*TEM2  016100 

TE2=ITEMR*TEM1^TEMI*TEM2I/TF1  016110 

TEMI* (TEMI*TEMl-TEMR*TErt2)/TEl  016120 

101  TEMR=  TE2  016130 

133  GOTO  (11,12,13,15*33, 34) ,M  016140 

ENO  016150 
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010013-02NEOIUM  FIGHTER, 

H=30>  000  FT 

,  CG=20C, 

H*. 9,  PYLON 

TANKS  915166LAT  13-1 

•0006907 

695. 

220. 

25000. 

26. 

36300. 

LAT  13-2 

75000 • 

-10000. 

32.092 

LAT  13-3 

-.02 

•  0132 

•  025 

LAT  13-4 

-.0035 

-.009$ 

•  00463 

•  0096 

•  0051 

LAT  13-5 

•  0051 

-.0014 

-  .0  0S7 

-.0144 

.003 

.0025 

LAT  13-6 

LAT  13-7 

5102-9-0  2LARGE  TRANSPORT,  H=30000FT 

t  CG=25, 

N=. 745,  START 

CRUISE  S/5/66LAT2-B  1 

.00069068 

743. 

4900. 

350000. 

200. 

21000000. 

LAT2-B  2 

34000000. 

1700000. 

32.062 

LAT2-B  3 

-.0145 

•  007 

-.0003 

•  0026 

LAT2-B  4 

-.0017 

-.0096 

•  0035 

.00071 

•00031 

LAT2-B  5 

.0017 

-.00061 

-.0041 

•000203 

-.00132 

LAT2-B  6 

LAT2-B  7 

ROOTS  Or  i/Z  LATERAL  DIRECTIONAL  TRANSFER  FUNCTIONS 
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co  x  <x  aj  a/ 

x  _i  o  o  o 

»•«  >-  _J  z 

o  o  o 


Z  t  <  <  ^ 

«a  z  3  o  o 

a  <s  >-  _i  z 

CO  5  0  0  0 


LU  LU  UJ  UJ 
iD  ®  (VJ  S 
OMAN 

in  u>  ro  in 

ro  O'  -t  o 
vX5  tH 


•  •  •  a 

a.  cl  a.  co 
r  rro; 
<*  «*  3 


(/>  o  a.  a  a. 

V  J  2 

o  o  o 


3  m  a  a  o  x 

N  ro  CD  CD  It 

X  V  _J  2  _l 


Ul  UJ  UJ  UJ  UJ 
r-  o  o  o  o 
o  o  □  q  o 
cr  n  j  m  h 
*}  P-  <\J  <*>  in 


o  co  cc.  ro  'O  «i 
x  m  v  jzu. 

OIMOOOJ 


i  4-  »  ♦  ♦ 

J  0  0  3  0 

H  M  1A  lA 
•OAJ  O  n 
'  .*■  n.  ps. 

(OlArlHH 


Ul  UJ  Ul  UJ 
kD  m  un  oo 
P*  O' 
vO  O'  >D  O 
n  o  P-  -J 
^  nj  j-  PO 


•  •  •  a? 

a  ii  a.  □ 

x  r  x  :* 

«x  <r  <*  » 


«a  «*  <*  rvi 

XXX 
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FREQ  SQUARE0  TIRES  PHI  TO  3ETA  RATIO  =  .1423E+02 


AFFDL-7R-78-203 
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AFFDL-TR-78-203 

OPTION  2 


TIME  HISTORIES  FO*  A  jTEP  INPUT 


TIME 

» <T> ,  ROLL  RATE 

PHI(T),  ROLL  ANGLE 

tJETA(T),  SIDESLIP 

SEC 

OEG/SEC 

OEG 

DEG 

0.0 

•  1 20  IE -97 

0. 

.68276- 08 

.1 

*  313  96  *G 1 

.15606*3 C 

- .3  05  6E- 0  2 

.2 

•  616CE  *01 

•  6239E*  3  0 

-  .9  Qt>6£-  0 2 

.3 

•  9066E  *01 

•1386E*0 1 

-.13406-01 

.4 

• 1186E+0? 

.24336*01 

-.11926-01 

.5 

. 145  3E ♦ 3  2 

.37536*01 

-.14146-02 

.6 

. 1706E *02 

.5334E*01 

.20166-  01 

.7 

.  1945E  *02 

•71616*01 

.53-96-01 

.8 

•  217  CE*02 

.92206*31 

.97686-01 

.9 

•  237  6E*0  2 

•  1 149E*0  2 

•  1 51 46*  c  e 

1.0 

•  257  0E*G2 

•  1397  6*3  2 

•  211 IE*  0  0 

1.1 

•27456*02 

. 1663E*  0  2 

.27346*  00 

1.2 

. 29  C6£  *0  2 

•  1946E*0  2 

.33456*  00 

1.3 

.  3052E  *0  2 

•2243E*32 

.39066*00 

1.4 

•3185E*02 

•  2555E*0  2 

.43366*00 

1.5 

. 3308E ♦ 02 

.28806*32 

•  4762E*  0  0 

1.6 

• 3422£*02 

•  321 7E*G  2 

.50216*00 

1.7 

•  3  53  06*0  2 

•3564E*02 

•  5 16  2E*  0  0 

1.8 

•3633t*02 

•  392  3  E*0  2 

. 519  6E*  0  0 

1.9 

. 3733E  *0  2 

•  429  IE*  Q  2 

.51426*00 

2.0 

.  383  0£*0  2 

•  4669E*3  2 

•  5  029E*  0  Q 

2.1 

. 3926E  *0  2 

#  50  57E*3  2 

•  488  8E*  0  0 

2.2 

•  40  2 1E*Q  2 

.5454E*02 

. 4754E*  0  0 

2.3 

. 4114E*  02 

.68616*32 

•  465 7 E*  C  0 

2.4 

.42042*0 2 

.6277E*C  2 

.  4  62  36*  C  G 

2.5 

• 429CE*02 

.6702E*C2 

.46706*  00 

2.6 

•  437  3F.  *3  2 

.71356*02 

.48066*00 

2.7 

. -4496*02 

•  7576E*0  2 

•  5029E*  0  0 

2.8 

•  4  51  St  *0  2 

•  8025  E*C2 

•  5328 E*  CO 

2.9 

. 458  2E*  32 

•  646QE*0  2 

.56866*  0C 

3.0 

. 463  8t *02 

.89416*02 

.60776*00 

3.1 

. 4686E *02 

•  9407 E*0  2 

.6-736*00 

3.2 

•  -72  8E  *0  2 

•  98 7 8 E* 3 2 

•  684  8  6*  C  0 

3.3 

•  4764E  *02 

•1035E*03 

.71766*00 

3.4 

■  47Q5t  *02 

•1083E*03 

•  7437 E*  00 

3,5 

.4322E*02 

•  1 131E*0  3 

•  762  IE*  0  0 

3.6 

. - 84 7F  * 3  2 

. 1179E*o  3 

. 7722 E* 00 

3.7 

•  4872F  *02 

.12286*33 

.77456*  00 

3.8 

.  4896c  *0  2 

•  1277E* 0  3 

.77016*  00 

3.9 

•  492  IE  *C  2 

•  1 326E*0  3 

•7609 E* 00 

-.0 

. -9476*02 

.13756*03 

•  749  IE*  0  C 

4.1 

.-9756*02 

.14256*03 

.^3706*00 

4.2 

.50036*02 

.14756*03 

.72706*00 

4.3 

•50326 *02 

•  1525E*0  3 

.721 IE*  0  0 

4.4 

.50606*02 

.15756*03 

.72076*00 

4.5 

•5088E*02 

.16266*03 

.72686*  00 

4.6 

. 5 11 3F *02 

.16776*03 

.73956*00 

4.7 

. 5136E  *02 

.17286*03 

.75826*00 

4.8 

•  5 155E*0  2 

.17  60E*0  3 

.78176*00 

4.9 

.51716*02 

.18326*33 

.60856*00 

5.0 

• 5182E*02 

.18836*03 

•  8366c*  0  0 

5.1 

•519CE*02 

.19356*0  3 

•  6o- 0 6*  0  0 

5.2 

• 5195E*02 

•1987E*33 

.68896*00 

5.3 

.51966*02 

.20396*03 

.90956*00 

5.4 

• 5197£*02 

•2091 E*03 

•  92-96*  CG 

5.5 

•  5196E  *C2 

.21436*03 

•  93-6E*  00 

5.6 

.51956*02 

.21956*33 

•  936  5£*  0  0 

5.7 

•51956*02 

•  2247  E*  0  3 

• 9373E* 00 

5.8 

•  51 9f  £  *C  2 

.2299E*C3 

•  932  2E*  00 

5.9 

•51986*02 

•  2351E*0  3 

•  924  7E*  00 

6.0 

•5203E*02 

.2403E*C3 

•9164E*00 

6.1 

.52096*02 

.24556*03 

.  9 09 OE*  0  0 

6.2 

.6216E*Q2 

•  2507E*0  3 

•  90-2E*  00 

6.3 

•  5223E  *02 

.25596*03 

•  9  03  OE*  0  0 

6  .4 

.52316*02 

.26116*03 

.90636*00 

6.5 

.52366*02 

•  2664E*  03 

.91446*  00 

6.6 

•5244£*C2 

.27166*0  3 

.92726*00 

6.7 

•52486*02 

•  2769E*3  3 

.943  86*0  0 

6.8 

.52506*02 

.28216*03 

•  963  36*  0  C 

6  .9 

.52496  *32 

. 2874E* 0  3 

.98436*00 

POSC/PA/ 

s 

•  27*  96  -  "  2  OBMAX 

£ 

.53326*00 

ANGLE  P/8  =  .98696*02 

PSIP 

s 

.20056*03 

PS  I  a 

S 

-.29926*03 

KO/KSS  =  .10346-01 

KP 

S  0 

. 

<8 

s 

.57876*01 

PHI  OS  C  /  PHI  AO  =  .27-96-02 

KPR 

s 

.53556*02 

KBR 

s 

-• 5754E ♦ 00 

PSI8P  =  -.2062E*03 

KPS 

s 

.58936*02 

K9S 

s 

-.52796*01 

P2/P1  =  .99966*00 

MKPPO< 

£ 

. 60  3  3E*3  0  MKBP3K 

S 

. 13906*03 
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RUN  NO.  013  RU3JER  NJMERATOR  ROOTS 

SIJESlIP  TO  CONTRO-  DEFLECTION 
ROOTS  (COMPLEX  FORD 

0.0  c  .c 

.92240*00 
-.16680*00 
•1096D*0 2 

1/Til  =  -.3?2357E*0:  1/TB2  =  . 166759E* : Z  1/T93  =  -.10So24E*G2 

AQ  =  .  1616E* j  C  tiQ  =  -.109+E*G1  CB  =  .13l4E*Gl  db  =  »272oE*Co 

ROll  ANSLF  TO  CONTROL  oeflection 
ROOTS  (COMPLEX  FORD 
0. 

-.2083D*00  -  •  3**  350*5 1 

-.20830*00  . 34950*01 

1/TP  =0.  Z5  =  .594737E-01  WP  =  .35G1&G£*01  WPHI/WOR  =  .1078726*01 

AP  =  • 1 624E* j  2  BP  =  .6763E*C1  CP  =  .19916*03  OP  =  0. 

Y&*  RATE  TO  CONTROL  OEFLECTION 
ROOTS  (COMPLEX  FORM) 

0.0  3  *  C 

•52020*00  . 1 3030*0 1 

.52020*00  -.13600*01 

-.16580*01 

ZR  =  -.357196'*33  WR  =  .146628E*01  1/TR  =  .1658076*01 

AR  =  •  2  0  261E*  C 1  BR  =  .125156*01  CR  =  .83165E*30  DR  =  .712-»4E*C1 
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AFFDL-TR-78-203 


OPTION  2 


TIME  HISTORIES  FD«  A  STEP  INPUT 


time 

P <  T *  ,  ROLL  RATE 

PHI(T),  roll  angle 

BETA(T),  SIDESLIP 

SEC 

OE&/SEC 

DEG 

DEG 

0.0 

.*♦4886-07 

o. 

• 6897E- 09 

.1 

• 1587E+01 

•7993E-0 1 

•6270E-02 

.2 

•3l21Ef01 

•  3157EO  0 

“•5339 E- 02 

.3 

•4624E+Q1 

•  7Q31EOC 

“.3078E-01 

.4 

•  611 2F  +  0 1 

•  1240EO 1 

-  •  648  3E-  0  1 

.5 

. 7592E*31 

•  1925E01 

“ . 1016E+  0  0 

.6 

•  906  2E  fO 1 

•  2758  EO 1 

-.1354E+  00 

.7 

. 1051E*02 

•  3737E01 

-  * 16&6E* 00 

.8 

. 1193E*02 

•  4860  £♦ J 1 

-.1738E+00 

.9 

. 1329E+02 

.612lEf0l 

“.1716EOO 

1.0 

•  1 45  8E ♦ 02 

•  7516EO 1 

-  .  1535E^  0  0 

1.1 

•  1578E*-C2 

.9035EO1 

~ .  120  2E^  0  C 

1.2 

•  1 68  7E  *0  2 

.lO67Ef02 

-.740  6E-01 

1.3 

. 1765E*02 

•1241 E^ 02 

- . 1 88  7£” 0  1 

1  •  4 

.1871E4-02 

•  1 42  3  EO  2 

•  403  3£“ 0  1 

1.5 

. 1945E»02 

. 161 4Ef  0  2 

.100 1E+  00 

i.e> 

.20G5E*02 

•  181 2EO  2 

•  1542E*  0  0 

1.7 

. 2063E^G2 

•2016 E+ 02 

•  1 98  9E^  0  0 

1  .8 

•211CEfr02 

.2224E02 

•  2  31 ?£♦ 0  0 

1.9 

. 2153Ef02 

•  2438E02 

•  2493E^  0  0 

2.0 

•2193Ef02 

*2b55E^  3  2 

•  2530  £♦  0  0 

2.1 

•  223  3E ♦O  2 

.2876E02 

.2*35EOO 

2.2 

. 2274F  fQ2 

•  31 0  1  EO  2 

. 223  IE*  0  0 

2.3 

•2317t»02 

•  3331E02 

.1954EOO 

2.4 

.  2363->0? 

.3565EOZ 

•  164  5  £♦  0  0 

2.5 

•  2  41  2F  4-0  2 

•  3804EO2 

.  l345Ef  0  0 

2.6 

.  246  3£ ♦ 0  2 

.4048EO2 

.  1  09  4E*  0  0 

2.7 

•  2515E*-02 

•  429  6 EO  2 

.9253E-01 

2.8 

•  2566E  *-0  2 

.455lEf02 

•  8619 E* 01 

2  .9 

• 2615E *02 

.48lOEf02 

•915 1E“ 0 1 

3.0 

. 2661E  *02 

•  5073EO2 

•  198  4E*  0  C 

3.1 

•  270  2F«-iiZ 

•  5342EOZ 

.1354E+  OP 

3.2 

. 2736E+C2 

*56l4Ef 32 

.  170  3EOG 

3.3 

•2764F»Q2 

.5889E02 

•  2 10  0E+  0  0 

3.4 

. 278£t  *02 

»6166Ef02 

.2509EO0 

3.5 

.  2802E  02 

•  64h6EO 2 

•2895£^  0  0 

3.6 

• 2bl 2E ♦ 02 

•  6726E02 

.322  6E^  0  C 

3.7 

. 2319E+02 

.70  Q8EO  2 

.347 6 £♦ 00 

3.8 

.2623E4-02 

#  729  0EO2 

•3632t*00 

3.9 

*2826. -'♦02 

•  7573EO  2 

•  3  684E+  0  0 

4.3 

.283CEf02 

*  7655  EO  2 

•  3638EOC 

4 . 1 

.263ci^02 

.6139Ef32 

•  35j  7£*  0  0 

*♦  .2 

•  2843E ♦£  2 

.8423E02 

•  331 5Ef  0  C 

.3 

.2655Ff02 

.6707EO2 

•  3  08  9Ef  0  0 

4.4 

•  2369E02 

.8994E02 

•  285 9E*  0  0 

4.5 

•2896 £*02 

.9281EO  2 

•  2 65  5E*  C  0 

4  *6 

.2905E*92 

•  9571E02 

.  2  50  3E*  0  0 

*♦.7 

•  292 5 F  02 

•  9862E02 

•  2  42  2E*  0  C 

4.8 

.2946F02 

•I016£f03 

•  242  3E*  0  G 

4.9 

•  2964E02 

.1045EO3 

.251 OE* 00 

5.0 

•  298  CEO? 

.1Q75EO 3 

•  2675E*  0  C 

5.1 

• 2993E02 

•  11 05EO 3 

.2905E+0Q 

5.2 

.  3002E02 

.1135E03 

•  317  dt* 0  0 

5.3 

•  3007fc  f  02 

.  1165E03 

•  3  47 1£*  0  0 

5  •  4 

.  3006E02 

•  1195E03 

•  3 75  8£t  0  C 

5.5 

•  30  0  5E *02 

•  122  5EO 3 

•  401 4E*  0  0 

5.6 

. 300  CE02 

•  1255EO  3 

•4220E+00 

5.7 

.2994602 

.1285EO  3 

•  4360E*  G  0 

5.8 

.  298  7E ♦ 3  2 

.1315EfC  3 

.4h27E*00 

5.9 

•  298  0  £02 

.13*5E03 

•  442  3E*  0  G 

6.0 

•  2975E02 

.1374Ef03 

•  4353E*  00 

6.1 

•  2  97  It  0  2 

•  14G4EO  3 

.4233E*  GO 

6.2 

•2971£f32 

.1434Ef 33 

•4081E+00 

6.3 

•  2973E02 

•  1464EO  3 

.391 9E^  Q 0 

6.4 

•  2977E02 

.1493E03 

.3767E^  On 

d.5 

.2983£f 02 

•  1523£f0  3 

•  364bEt  OC 

b  .  6 

.2991Ef02 

.1553E03 

.3572E*00 

6.7 

•  299qE  fO  2 

•  1583E03 

*  355  5E^  0  0 

6.8 

.  30  07Ef02 

.1613Ef 33 

•  36C  OEt  0  0 

6.9 

.30l4f.f32 

.1643Ef03 

.  37  0  3E»  C  G 

7.0 

.  3019 -.♦02 

•  1673E03 

•  3858E^  C  0 

7.1 

•  JG21E02 

.  1703EO3 

.  ♦051E^  OC 

7.2 

. 3021EO2 

•  1734E03 

•  42b5£t  00 
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LARliE  TRANi»ORT,  H=3:0:SFT>  3f-=^5,  M=.74i,  start  CRJI5E  8/5/c6 
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PHI  TO  SETA  r<ATI0 


AFFDL-TR-78-203 


RUN  NO.  2-3  AILERON  NUMERATOR  ROOTS 

S1JESIIP  TO  CONTROL  OEFlECT ION 
ROOTS  (COMPLEX  FO*M) 

0.0  0.0 
. 11360+00 
- .  ‘♦3990  +  uO 
-.41660+02 

1/T31  =  -.113553E+00  1/T92  =  .439902E+0G  1/T33  =  .416598E  +  G2 

AD  =  -.2562E--2  38  =  -.1C81E+C0  C9  =  -.3*22E-0l  DB  =  .564'jE-C2 

ROl.  ANGLE  TO  CONTROL  oeflection 
ROOTS  (COMPLEX  FORM) 

0. 

-.20220+00  .9231O+C0 

-.20220+00  -.92810+00 

1/TP  =0.  Z°  =  .212856E+00  WP  =  .949864E+Q0  WPHI/ WDR  =  .111010E+01 

AP  =  .4753E+30  BP  =  .1922E+CC  CP  =  .4239C+0L  OP  =  0. 

YAH  RATE  TO  CONTROL  DEFLECTION 
ROOTS  (COMPLEX  FORM) 

0.0  0.0 

.96900-01  .4445D+G0 

.96900-01  -.44450+00 

-.81710+00 

ZR  =  - .  21299-*  E  +  0  C  WR  =  .454967E  +  00  1/TR  =  .  817079E  +  CO 

AR  =  • 10619E+0G  8R  =  .66183E-01  CR  =  .51653E-02  OR  =  .1  7939E-C1 


AFFDL-TR-78-203 


OPTION  2 


TINE  HISTORIES  FOR  1  STEP  INPUT 


TIME 

,  ROLL  RATE 

PHI (Tit  ROLL  ANGLE 

OETA  (T  )  >  SIDESLIP 

SEC 

OEG/SEC 

OEG 

DEG 

0  .0 

.13136-38 

0. 

-.30206-13 

.1 

.4573E-U 

•  2316E-C  2 

-.76586-03 

•  2 

•aai3E-oi 

.90366-02 

-.24896-02 

.3 

•  1275E  *00 

.19846-01 

-.50766-02 

• lo436*QQ 

• 3445E-0 1 

-  .8437E-02 

.5 

•  1 90cc ♦ 0  C 

•  5261 E-0 1 

-.12486-01 

•  6 

.23076*00 

.74096-01 

-.1711E-01 

•  7 

•  2609E  *QG 

•9869E-Q 1 

-.22256-01 

.6 

.28945*00 

.12626*00 

-.27806-01 

.9 

• 3l62E*Cu 

•15656*00 

-.33686-01 

1.0 

•3416E*0G 

•  1 894E*0  j 

-.39816-01 

1.1 

•  3656F  *GG 

.224 8E*0 j 

- • 461 OE- 0 1 

1.2 

•  3885E  *0C 

•  2625E*C  0 

-.52496-01 

1.3 

.4l01E*0u 

. 30  24E*0  0 

- • 5889E- 01 

1.4 

.4307E*C0 

.34456*00 

-.65246-01 

1.5 

•45035*00 

•38866*00 

-.71466-01 

1.6 

•  469  OE*  0  0 

.43456*00 

-.77506-01 

1.7 

•  48675*00 

•  4823E*C  0 

-.83296-01 

1.8 

•5036E*0C 

.53186*2 J 

-.88796-01 

1.9 

•5196E  *0C 

.58306*30 

-.93946-  Cl 

2.0 

•  5347E  *CC 

•  63576*0  0 

-.93696-01 

2.1 

•54906*00 

•68996*03 

-.10306*00 

2.2 

.56266*00 

.74556*0  3 

-.10696*00 

2.3 

.57536*00 

.80246*00 

-.11026*00 

2.4 

.58726*00 

•  8605E*3  C 

-.11306*00 

2.5 

.59646*00 

.91986*00 

-.11536*00 

2.6 

.60876*00 

•9802 E* 3 C 

-.1171 E* 00 

2.7 

.61836*00 

•10426*01 

-•1182E*  00 

2.8 

•  6271E  *0  0 

.11046*31 

-.11886*00 

2.9 

.63515*00 

.11676*31 

-.11386*00 

3.0 

. 6h23E *00 

.12316*01 

-.118  2E*  0  0 

3.1 

.64836*00 

.12956*01 

-.11716*00 

3.2 

.65456*00 

.13616*01 

-.1154E*  00 

3.3 

•6596E*00 

• 14266*0 1 

-.  1132E*  00 

3.4 

•6637E*00 

.14926*01 

-.11056*00 

3.5 

•  6672E  *00 

•1559E*3 1 

-.10726*  00 

3.6 

•6701E*0C 

.16266*01 

-•1035E*  OC 

3.7 

•o722E*00 

.16936*31 

-.9943E-01 

3.8 

•67366*0C 

.17606*01 

-.94916-01 

3.9 

•  6745E  *  0  C 

•1828E*31 

-  •  9  00  2E-  0 1 

4.0 

.67476*00 

.18956*01 

-•8480E-01 

4.1 

•67436*0G 

•1963E*3 1 

-.79286-01 

4.2 

•6734E*00 

.20306*31 

-•7352E-01 

4.3 

.67196*00 

.20976*01 

-.67546-01 

4.4 

.67006*00 

.21646*01 

-.614QE-01 

4.5 

•66766*00 

.22316*01 

-.55126-01 

4.6 

•  66486  *  0  0 

.22986*01 

-.48766-01 

4.7 

.66166*00 

•2364E*0 1 

-.42356-01 

4.8 

•  65816  *00 

•2430E*Q l 

-  .35946-01 

4.9 

• 6543E*00 

•2496E*0 1 

-•2956E- 0 1 

5.0 

.65026*00 

.25616*01 

-.23256-01 

5.1 

.64596*00 

.26266*01 

-.17066-01 

5.2 

•  64156*00 

.26906*31 

-.11016-01 

5.3 

.63696*00 

•27546*01 

-.51456-02 

5.4 

.63226*00 

.28166*01 

.50976-03 

5.5 

.62746*00 

.2881E*01 

.59246-02 

5.6 

.62276*00 

.29436*01 

•1107E-01 

5.7 

•  6179E  *00 

•  300  5E*0 1 

.16926-01 

5.8 

.61326*00 

.30676*01 

.204  66-01 

5.9 

.60866*00 

.31286*01 

•24666- C 1 

6.0 

.60426 *00 

•31886*01 

.28526-01 

6.1 

•5999E  *00 

.32496*01 

.32016-01 

6.2 

.59576*00 

•33086*01 

.35136-01 

6.3 

.59186*00 

.33686*01 

.3  7666-01 

6.4 

.58816*00 

.34276*01 

•40216-01 

6.5 

.58476*00 

•34856*01 

.42186-01 

6.6 

.58156*00 

.35446*01 

.43756-01 

6.7 

.57876*00 

.36026*01 

.4*956-01 

6.8 

•67616*00 

.36596*01 

.45776-01 

6.9 

.57396*00 

.37176*01 

•  462  36-01 
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7.0 

• 5720E*0Q 

•3774E*0 1 

•  463  3E- 0 1 

7.1 

•  5  70  4b  *0  0 

•  38  31 E*C  1 

.46096-01 

7.2 

.56916*00 

• 3888E*0 1 

•  45526-01 

7.3 

.568  2E  *00 

•  3945E*0  1 

• 4*b5E- 0 1 

7.4 

•  5676E  *0  C 

•  40  0  2E*0 1 

•4349E-01 

7.5 

.5674EOG 

.40596*01 

•  420b  £-01 

7.6 

•  567  ‘♦E+'OO 

•41156*0 1 

•4039 E- 01 

7.7 

•  5678EO0 

.41726*01 

.38516-01 

7.8 

•  5665EOG 

•  4229E*C'  1 

.364  26-01 

7.9 

•  5695F  *0  C 

•4286E*01 

•34176-01 

8.0 

•  5707EO0 

•  4343E*0  1 

•3178 E- 01 

8.1 

•  5722EO0 

•  440  0E*  0  1 

.2927E-01 

8.2 

•  5743EO0 

•4457£*01 

•  2667E-G1 

8.3 

•576CE* 00 

•  451 5£*  0 1 

•2401 E- 01 

8.4 

•578lE*00 

•4573£*01 

•  213  IE- 0 1 

8.5 

.:>805E*CG 

•  463  0  6*01 

•  1 86  IE- C  1 

8.6 

•  583  06*0  0 

•  4689E*0  1 

.15926-01 

8.7 

•  5  65  7F  *0  C 

•4747£*01 

•  1327 E- 01 

8.8 

•  588A£  *00 

•  460  6£*  0 1 

•1069 E- 01 

8.9 

•  3913EOC 

•48656*0  1 

.81966-02 

9.0 

•59426*00 

.<*9246*01 

.58136-02 

9.1 

•  5  97  2F  *0  0 

•4984E*01 

.35E0E- 02 

9.2 

.600  IE  *00 

•  504  3£*  0 1 

•  1457E- 0  2 

9.3 

•  6  u  3  IE  ♦  0  C 

•  51 0  4  E*C 1 

-  .4786E-  03 

9.4 

• bD6Q£*00 

•  51b*.E*Q  1 

-.22316-  02 

9.5 

.50896*00 

•5225£*0 1 

-.3767E-02 

9.6 

.61186*30 

•  5286E*0  1 

-.51336-  02 

9.7 

•  ol456.  *0  0 

•5347E*:i 

- • 6256  E- 0  2 

9.8 

•617 16*30 

.54096*01 

-.7155E-G2 

9.9 

.61906*00 

•547 1£*C 1 

-.7817E-G2 

10  .  0 

. 022C£*00 

• 5533E*0 1 

-.623  7E-02 

13.1 

.6242=*Co 

•  6595E*  0 1 

-.6h14E-02 

10.2 

. 6253E*00 

•  565  8  E*  Cl 

-  •  8  3*  6  E-  0  2 

10 .3 

.62816  *00 

•5720E*01 

-  .8033E-02 

10 . 4 

. 5296£*30 

.57836*01 

-  .7-+78E-  02 

1C  .5 

•  b213r.  *00 

•  5846E*!' 1 

-  .6oo5E- 02 

10 .6 

•6325F*3G 

•  590  9 E*  0 1 

- • 565  0  E- G  2 

10.7 

•  633  f.  £  *'3C 

•59736*0 1 

-.4*096-02 

10.8 

•63446*00 

•  60  36E*C  1 

-.29-16-02 

10 .9 

. 635  CE*  30 

•61C0£*oi 

- • 12b  7E- C  2 

11  .0 

.635-E*JC 

•6163E*0 1 

.60376- 0  3 

11.1 

. 635bE*G0 

.62276*01 

.26576-02 

11.2 

•  6  3  5c  E  *3C 

•  629  0  E*  3 1 

•4obCE-C2 

P0SC/PA7  =  .71Wt-:i  03MAX 

P5IP  =  -.1920E*J3  PSIc 

KP  =  0.  <3 

KP-R  =  -.51 2d£*:0  <  3  R 

KPS  =  .62ilE*Cu  <3S 

MKPPDR  =  .112S£*:0  MKBPDR 


.14376*03 
. 16  C9E*u  C 
.  71 6 <*l-C  1 
•  1225E  *t  3 
.e4C9fc*G0 

1 16bE * 00 


i 189E*0D 
33576*03 
35506*31 
“5436-  ul 
36116*01 


ANClE  P/B 
KG/KSS 
PHI  OSC/PHI  A\l 
PSI5P 
P2/P1 


RUN  NO.  2-8  ’UDDER  NUMERATOR  ROOTS 

SIDESLIP  TO  CONTROL  DEFLECTION 
ROOTS  (COMPLEX  FORM) 

0. G  5.G 

. 1G91D-G1 
- • 93  p60  *0  j 
22070*02 


1/T31  =  -.1J913:'E-01  1/T92  = 

A  B  =  •  23916-..  1  33  =  .549lE*CC 


.905b0dE*:?  1/T33 

cb  =  .-ri9E*co  OB 


roll  angle  to  control  deflection 
ROOTS  (COMPLEX  FDR  D 
0  . 

.21*90*01 

-.13650*01 


1/TPl  =  0. 

AP  =  . 16 1QE*  J  3 

YA.<  =>A 

ROOTS  (Complex  FORD 

0.0 

-• 21 500-01 
-.21500-01 
-.93070*00 


1/TP2  -  -.21*901E*01  1/TP3  = 

aP  =  -.12©3l*C0  CP  =  -.-»?23E*CG  DP 

E  TC  CONTROL  OtFLECTlON 

o.c 

-.1«590*CC 
•  1999t)*GC 


=  .220. 9  8  E ♦ C  2 

=  -.521oF-02 


• 1ooh3h- *01 

G. 


ZR  =  .  10bd9  ■  E*0t 

AR  =  - • 5 27 8 3E  *  0 '  9R  = 


WR  =  .20109 3t +00  1/TR  =  .930702E*CG 

•  514?  GE  *0 J  CR  =  -• *24696- 31  DR  =  -.108o7E-Cl 
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OPTION  2 


TIME  HISTORIES  FOR  A  iTEP  INPUT 


TIME 

,  ROLL  RATE 

PHI (T) ,  ROLu  ANGLE 

3ETA(TJ,  sideslip 

SEC 

QEG/SEC 

OEG 

DEG 

0.0 

.7994E-14 

0. 

.26686-08 

.1 

. 1448E-01 

.75136-03 

•  49o5£- 0  2 

.2 

•25556-01 

.27826-52 

.1495E-C1 

.3 

.33055-01 

.57436-02 

.29736-01 

•  4 

•3664E-01 

.92696-02 

•  490  6E-  0  1 

.5 

. 3684E-01 

.12996-31 

.72716-01 

.  o 

. 33GGE-31 

• 1651 E-C 1 

.  10C36+  00 

.7 

• 2532E-01 

.19466-01 

•  1 31 6E*  C  0 

.8 

•1383E-Q1 

•2145E-0 1 

•  166  36+0  0 

.9 

-.13911-02 

.22106-01 

.20406+  00 

1.0 

-.2023F-C1 

.21G5E-0 1 

•  244 36+  C  0 

1.1 

-.42566-01 

•17946-01 

.28696+00 

1.2 

-• 582  Of -01 

• 1242E-3 1 

.33136+00 

1.3 

-.96966-01 

•  4191E-0  2 

.37736+  0C 

1.4 

-•128b6*Q0 

-.70656-02 

.42456+00 

1.5 

-.16296*00 

-•21626-01 

.47246+00 

1.6 

-.19966 ♦00 

-.39736-01 

.52066+00 

1.7 

-• 23B5E+0L 

-.61626-01 

.5b89t+C  0 

1.3 

-.27aiEfOC 

-.8749E-01 

•  616  66*  0  0 

1.9 

-. 321 36*00 

-. 11756*0-3 

•66416+ 0C 

2.0 

-.3648E  *00 

-.1518E*03 

•  7 10  36+  C  C 

2.1 

-.40916*00 

-.19056*0 : 

.7551E+G0 

2.2 

-.454re*oo 

-.23366*0: 

•  798  36+  0  C 

2.3 

-.49936*00 

-  •  28136*0  0 

.83966+00 

2.4 

-•5445E+00 

-.33356*00 

.67676+00 

2.5 

- • 58946 ♦ OC 

-.39026*0? 

.91536+00 

2.6 

- • 6336E  *GC 

-.45136*00 

.94946+  C  0 

2.7 

-.67706*00 

-.51696*00 

.9805E+0C 

2.8 

-.71916*00 

-  •  586 76*0  0 

.10096+01 

2.9 

-.75936*00 

-.66076*0'- 

.10346*01 

3.0 

-.79896*30 

—  *  7  3  8  6  £♦  0  0 

•  1056E*  01 

3.1 

-.33596*00 

-  .62046+0': 

•  10746+01 

3,2 

-.37096*00 

-  *  9C57E*  3  0 

.10896+01 

3.3 

-. 90356*00 

-.9945 E+C : 

•1101E+01 

3.4 

-.93376*00 

10866*01 

•  1109E+  C 1 

3.5 

-.96126*00 

-.11816*01 

.11136+01 

3.6 

-.98596*00 

-  •  1 27  8E*  0 1 

.11156+01 

3.7 

-.10086*01 

-.1376E+01 

.11136+01 

3.8 

-.10276*01 

-.14806*01 

.11086+01 

3.9 

-.  10426  *01 

-.15836*01 

•1099E+01 

4.0 

-.105*6*01 

-.16886*01 

.10886+01 

4.1 

-.10656  *01 

-.17946*01 

.10746+01 

4.2 

-.10726*01 

-.19016*01 

.10576+01 

4.3 

-. 10756*01 

-.20096*01 

.10386+  Cl 

4.4 

-.10766*01 

-.21166*01 

•lOloE+Ol 

4.5 

-.10746 *01 

-.22246*01 

.99236+00 

4.6 

-• 1 063E  *0 1 

-.23316*01 

.  96b6E+  0  0 

4.7 

-.10616*01 

-.24376*01 

.9393E+  GO 

4.8 

-.10505*01 

-.25436* Cl 

.9105E+00 

4.9 

-.10376*01 

- • 2647E*  01 

•  88  C 66+  0  0 

5.0 

-.10226*01 

-.27506*01 

•8497 E+OC 

5.1 

-.10056*01 

-.2852E*01 

.  81806+  00 

5.2 

-.98546*00 

-.29516*! 1 

.78596+00 
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5.3 

-• 9643E ♦ 0C 

-•  3049E*0 1 

.75356*00 

5.4 

-.941b6*0C 

-.31446*01 

.72126*00 

5.5 

-. 91766*00 

-.32376*01 

.68906*  00 

5.6 

-• 89246*00 

-•3327E*0 1 

.65736*  00 

5.7 

86626*00 

-.34156*01 

.62626*00 

5.8 

-.8393E*CC 

-.35016*01 

.596  OE*  0  0 

5.9 

-.8118-:  4-00 

-.35836*01 

•  b668E* 0  0 

6.0 

7841E+3C 

- . 3663E*0 1 

.53896*00 

6.1 

-.75626*00 

-.37406*0 1 

.51236*00 

6.2 

-.72846*00 

- .3  8 1 4E*  0  1 

.48736*00 

6.3 

-.70096*00 

-.38866*01 

.46406*00 

6.4 

-• 57396  *  C  0 

-.39546*01 

•  442  4E*  0  0 

6.5 

-.6*756*00 

-.40206*01 

.42286*00 

6.6 

-.62206*00 

-.40846*01 

.40516*  00 

6.7 

-.597ue*00 

-.4145£*01 

.38966*  OC 

6.8 

-.57416  *C0 

-.42036*01 

.37616*  00 

6.9 

-• 552  OF  *00 

-.42606*0 1 

.36486*00 

7.0 

-.53136*00 

-.43146*01 

.35576*00 

7.1 

-• 5122E  *00 

-.43666*01 

.34886*00 

7.2 

-  •  494‘,E  *00 

-  •  441 6E*0  1 

•  34h16*  0  0 

7.3 

-.47896*00 

- .44o56*  0 1 

.34156*00 

7.4 

-• 4649E*00 

-•4512E*0  1 

.34106*  Ou 

7.5 

-• *5286  *0C 

-  .4558E*0 1 

.34266*00 

7.6 

-.44266*00 

-.46036*01 

.34626*00 

7.7 

-.43426*00 

-.46476*01 

.35176*00 

7.8 

-.4278E  *00 

-.46906*01 

.35916*  00 

7.9 

-.42346*00 

-.4732E*C 1 

. 368  lE*  G  0 

8.0 

-• 420  8E*0G 

-.47746*01 

.37886*00 

6.1 

-.42026*00 

-.48166*01 

.39096*00 

8.2 

-.42136*00 

-.48596*01 

.40446*  00 
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RUN  NO.  2-9  COUPLING  NUMERATOR  ROOTS 

PHI  TO  AILERON,  deta  TO  RUODER 

1/TP9  =  0. 

APS  =  .1177783-31  9PB  =  .2686730*00  CPJ  =  0. 

PHI  TO  AILERON,  PSI  TO  <UOOER 
1/TPP  =  .9111  ♦9E-01 

APP  =  -.2680136*00  8PP  =  - .  2**  20  0  E-C 1 


psi  ru  aileron,  beta  to  rudder 


ZPSB  = 

•  160257E-C  1 

WPSB  =  .31 22896*0 1 

A  PS  B  = 

•  113bi)3J-v2 

3PSS  =  .1167730-03 

CPS9  - 

.11  5725D-G  1 

PHI  TO  AILERON,  ACCELERATION  TO  RUDOCR 

1/TPAY1  = 

- •l4i229E*G  1 

17TPAY2  =  • 146&11E *C  1  1/TPAY3  =  0. 

APAY  = 

.675CR3J*J1 

SPAY  =  .‘♦884  840*  0  0 

CPA Y  a  - 

« 18 IAlQ  0*0  2  DPAY  a  o. 

PSI  TO  AILERON,  ACCELERATION  TO  RUDDER 

Z  PSA  Y  = 

.52S?42£*03 

WPSAY  =  .9779266*30 

1/TPSAY 

=  .5 14^  26E*C  L 

APSAY  a 

•  881.>6_>3*u0 

3PSAY  =  .8824630-01 

CPSAY  = 

•  252  57o  D-l 3  JPjAY  =  -.7834410*00 

ACCE-ERATION 

TO  aileron,  seta  TO  RUDDER 

ZAY8  = 

.5981 5  0 E -C 1 

WAYS  =  • '♦419146*01 

1/TAYB  = 

0. 

A  A  Y8  = 

. 88 16 j  S3*  0  0 

BAYS  =  .4661030*00 

CAYB  = 

.1721790*02  DAY B  a  .1721793*02 

PLEASE 

RET  JR N  PAPER 
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